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m^) <r>7.^^)->\Z^^>7 0 Ofi^mtlb. ^:^7 0 0 

t'a.-^5'>7 0 6< P3$fe4^':$^>7 0 8, (^^#^4^^ 
>7 1 0^5^t;a.-if:f.^'>;7 1 2f)mtE'r^. :^-rrf 
'J -^i^^' > 7 0 4 n/cffli^X 'J 7[i^En7}^^ > 

5 2-5 8lCj;ip^li!)5n^'. fa-:fv^ > 7 0 6 0» 
6^11^1.^X1^06 IC^LTiaB^t At CD"C, ^ICTUISiBJ 
10 LAili. ^;vy;t^^>7 0 2cOff£!itr<t:0, 

pu3 2\z^^mm^n^f)^. trz\tt>tK>^L<\m 

\,i^^j^(Dmm(o^j 7.htmti^. a-+f*3'>7 1 2 
cof^i!it:<^o. ^^^f)^^nummx^^tLx^A 

8 0 07i«^^^ns, j 

[0 0 2 1] ^3. 8:fc^r/9e#PI-r^><i:, g^8 0 
OtCli. ^iacD;}<^>8 0 1 , 802. 803. 80 
4. 805. 806. 807. 8 0 8 8 0 9 t^J^S) 

yym^. A-h^-. 7.it^-Vm^. Xa-X#M. ^ 

n^'n^J^:LTV^ao :}^3'>8 0 1-8 0 9li. 
30 ^>5 2-5 8^ffll.^^C:<i:tCi;0^I^J$n^f^f)X'J 

- i: UrmMf?):^ X U -tC^^ < f^iftX U 7 
1^-2>AcJ6tZffll>^n^, :t^^>8 0 1-8 0 9 IJ. 
^<h*^-A'y H5 OOl — 9<7)=^^-<7?gd^Ji:l^i;^3^] 
m3^JcDg2?ycS?!i*nTV^>5. bfc75«oT. ■^->M'J> 

-6, :/ti:At3:, 3#S<;5*SE^J^3cfcc;3#a(Dl^^Jtc;fe^ 
if^^y. t-/j:t)-^4^^>8|o 9, ICf^U!iXU7^f^If)'r 
H5 0CCi3#@CO^?»Ji5<k^3S@t^ 

U775^[a8ic^$^l/^J:^)■^:x^^-^y;^^3^>8 o 5f:^» 

0. ^tR (U) ^5^>6 4>5H^a$n^i:. ^9iC/T^5 
nA:^ji^755^tl6. Ii9{£ Ii8c7)t>cDi:f^t?(^> ^^[3 
^JI$l35^Jf7)SS^Jc73iMlR:}^^|>9 0 1 - 9 0 9 ^ Ai:^. 
^Ep;fs^>5 2- 5 8 ttklil^^y J:^fl^liX 
iJ7(^?^ilili. !^8^(^^[:iI8(c;feuTt>^fi£r^ 

50 -5. ;f^5'>9 0 1 -9 0 9lj:. ifJ^. 7 'y h:]^-;^. A* 
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-5. :t-;U:t^ > 9 0 5 i;kn<Dm 9 \Zn'^^tltt'^^^ > 

-y^.^.r. t-;V;J^5'>9 0 5$:ffWT^.;:<htCiO 
Ml 0\Z^^tirz^7r^l 0 0 0;:i<^^9 0 OlI^oTf^ 

CO 0 2 2) Ell O^mt^t^ ^^6^3 Om^. 

■vo^yi-oo. ao, fiS/h$n^s^i 0 0 2ic:^3^t 

I' 7 ^ ^ > y $ $ nx I i ^^n^^ 
0 0 2ii. nfc^^^<t Scc^smtCcto 

—z; . ^ > . -ifNBAj $:^^T H 1 0 0 3 
^^/7 . ^> . -tfNBAj Tti^^&e : 3 O?!)^'^te^0. 

ioo6t:*3tt^ rx-7PGAzrjU7j o^^h)i(^ 20 
ml CO 2 mfefi^^EIllcJ:oT^^n^ J: 7 ICJ; O^t^^ 

^OX. ^/h^nfc^i^.l 0 0 3*5J:r;i 0 0 4iD:&(l] 

\t. Pii;{ii:ST^^oTi.i^- ^/jN^n^^^i 002 
of'^E^xuyi 0 0 5cD^i^it)L<ii^^f^t5. metm 
mzayhu-yizx-oxno. 3SiR7-r>K'^ 1 0 0 

010-101 5^^t?. 010-101 

^. :3>hn-^2 OOSiR (U) :^^3'>6 4^f^i5t- 

(Dx^X h^Utia-T^^EIl l[C7r^$nAcg?j^7i»<S 
^xur 1 0 0 6lcE:^j:^Ta^$n^- ±)£L/S:^7 
Ic. (U) ;J^i?'>6 4tl> ^icoB^.-^.T, CPU^i^ 

3^-7x'rx3o {m2\zm7f^) icjt^T^ct^c-t 

[0 0 2 3] Pl^lil o^^m-^^t. :^rii^<tt/giS 
(D^j^si;:*^^^ 1 0 0 of}^^7r^tn^^o\zt^^i^^tm 

yyXl^mLti^o\zm>^t)'^ (?) ^^^>6 875^11^ 

7 0 o^i^'^^^^^ne. ^etc. t:a-4-;^>7 0 6 
Tiq^i^j^n/t^'^. ^1 2ii^^nAc^/Ti 2 0 o*5J: 
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S.^^^l 2 0 Oil, :t>-^'^l 202. ^gl204, ^ 
^ 1 2 0 6. '^-f-i^T- 1'2 0 8i3^t^'i'^-^^X> 

]^i2iommm^^^>^'^t^. ±x<o7.t^-y<D 

:^xzfU-A^B^t>oTiS?^$WcCOr, ^/Tl 2 0 0C0 
f^KX'J7;!i«^^^^i?'>l 2p4^^mt^^v\zim 
^tlX. #5'> 1 2 0 4Wl^i$n^<i:, mi 4IZ^$ 

n/c^.Tti 3 0 o;5^':^n, ^'.Tti 2 0 o±tcm>:£'5. 

[0 0 2 4} ^^^l 3 0 OtC^5l^T, x-i'flacT^iMtR 

^nfc-tj-yi^ji/-7't?5 2ocoiift-r^n-?-*n^'^AWt-t 

$n/z2^C0^^I^I75^T^^nTl^^. ^.T^l 3 0 0tC75 

^nrz2o<Dm^\t. ;>:<7)2*4P#rpio^-fAXD'y ho 

^0 1 2^%Wztb<D^^r>^-)Vt^^ Ix^^Oy hX^ 
*^), *C0 1 2^r«iaF^<^3 0'otJl±c^^^>t-^K'^^ 

n-sx^t^'-^^smTi^^n^eti^^i 3ooic^$n^-c 

^'ntOl^fiiO/i:ii)!C±iDcfcC/T(^S^En5 2. 5 4*3J; 

t>f^l!ix'J71 3 0 2^f^l^^-li-r^:i<i:;!»^rt^. ^ 
^ 1 3 0 0;:i^€>b;!)^'5J:7iZ. ^l^mmfn'\{^XtM* 
ti^^lS,'r^\Z\t'^Zf^}V^:/\Z\t^rz^<<Dir-'^^ 

t^-)Uz^^^i^tx^y^)i'^'J>^^^'^'^^^^'^^ 

FplC^^b^ (?) :K^>6 8'&WL. ^^7 0 0 (07 
icH^) ^n^^t^, :k\zhTd^)-t^9>7 0 4^m 
^L, ^^^9 0 0 (EI9{I0^) ^^^t*^. 
xy-y h^->'l'^3'>9 0 S^miSiL. mi S<D^^1 

5oo$:^^r-£)* mi 2RUI 3<D^Bmmy^ 

(i^lELT'ctV^oDt. 1 5 0 Otl^cDl 2»frp1f:^^a¥^ 

o\z. 2'^^<D^^)yV^kisoo\t. mie<omi 
^^hx^^^. z.ommmmmT^^x^ti'enmt 
mt^o\z-v^\z^>t^^^WLXh^. jt^^zsy^^^^ 

5 2. 5 4;f3i:i;/^fc(l^^J:r;&I^#^^56 5 8 
=£ffil^T2;J;;^cD^'J7 h'^^1 5 OOf^Tf^i^lXUJ 

^Bj!i[t'6rci!)tc&Srm(?)3^< h;^^^^>^^^^^?^^l 

5 0 0c;)7l/"AtD-#±II^^^-ti-^. /ziAtf* 
|^IXU7 1 S 0 2\Z^^^m^t\tz^mt. fvX'r> 

^n-s, t/i^fcoT. E!r3c^^^n/:fii^>i:<v^#^a 
(O^TTl 3 0 0^iStPvfl^lC7><;i/5"J>yf eCchirJ: 
oT. WB|^^?U^>^(?)S^ 1 5 0 Q\ZWi^\^t^^tt^ 

xn. w&^\tiKmmmm^x^t\^n^m*^^^^ 
tt^x^^. 
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[0 0 2 5] mi 6-2 S^-^RQUT. t-^m<D^WM 

mi eii^i^m<om^r\t. imr^^ 
WLVkm^^Vro:^zL^-mm<D^mxm^o^ o ot^j: 

[0 0 2 6] J:oT, ffi^^'^i^ ^yx • 0^-^ "f > 

\^^tLtc^%. ffie^ti. ^r+-/'^vK5 0O04^5' 
>$:{^I^lL, ^1 OO^^^th-TT^^^- 4[51J[^±0 
(;):t<^>€:lfr<!:. 0 9, 8, 7 *5cl:t/5 ^^^'^(7?^ 
^n9 0 0. 8 0 0> 7 0 0;fc.i:tX5 0 O^iiitJ. 

0 0 ^^-To ^-r. •r-<:TC0^^^^^<^3'^ 

oits^n-aiai 7tc^$n/i<i;5tc±i^^^en5 2^fc 

0 . S I 8 A^ia 1 7 (D±.\zmMt/^\zM.Uh. 0 1 8 
;J^^>6 40ffii!itC^D^ 1 9 iitrEI 2 0 J: ^ 

icAj:^. ^^2 00 0 S^0(o 2 -:>(r>X'^\zo^^x 

-^\ih\Z\t. Tl^i]^5^en5 6=&ffiUT{mx'j7€:^2 40 
1 iC^.$ta/::i:^tC^7"n2 0 0 0 (DNO^^tr^-l' >tc 

g!2 2C0^^2 2 0 0;;>>'^^2 0 0 0lzS^j:6. ^fiE» 

3oStDT. %±U9^ V)V't\OV M)m2 2\Z'^n^. 
^^2 2 Oi:^3V>TNOVAi:^'^;i^f^t:^5tl/i:7-r> 

^C<hirJ;0. viJ-X^IINOVA<^B§^J^t^V> 
^^)Vtth\zm2 2\Z7r^^t\fz^n^2 3 0 07i>«^^x2 2 
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[0 0 2 7] m22\t. ^mm'^7t(D^'}yYt\.X 

\t. ^^2 3 0 0(7)-:so^itc. 

m. ra)^^^^-s±t:7K¥':^^^^Ilc^c•T2 4 5#rBTca 
TTx^tiTi^-^. J;oT, No'vAoxt:v-h';i^'0&Ma 

C0^f^8»^lC^S$nTt^^ig^. R^fttO^-y^Xli 
B AM B c^^J T ft 8 ft^O^J (h'TtJ^i^tD -3 /:: i C 5 t:6fi $ n 
Tl.^'S. f^ax'J72 3 0 2'ii. H 5 0 (7)^En 

5 6, 5 8t^!K¥^r6li:. 5cEn5 2, h AX^\^l5H\Z 

n^-^mxh^. ^'^^^(h^'^onmznov At^^ 
^w^'^ri^^^> ^^vc^7.n\zM.^ (*) ^{^ox. 

^<DB<Dnt^<r>^mon^ii^^t>'DtLtZ.^\zE,^i\ 

fz^^y^7s\z^y)^.tn^.'m.^ (*) ^t. tkbmco^s 

^'^<DB(Di^'^(r>^m\zu^i:bm^(r>7.^ -J ^ itzt^ 
1> L < \Z\t. I 3 gpgo g s co/c*:> 

>%2^W.mr^. g^2 3 0 0;5^'#M3'< b>'Hit)t» 

6 A. i: L T j^fl^^t I^S'J ^ i 0 i -r ^ C t) ^ CD 
f, 7l/-A(Dif^'>'1'>H^1 9 0 4li^.T^2 3 0 0 
troC^T«ii^^J:0±St.i-| 71^-^2 3 0 4 

^, -ir-T/^H 67:f^ya^^Aa)3 0 0£X±(7) r^-^> 
^CDT^-feX^Wf^^^, NOVAT^^ciftOlK 

^ Z f}^ 2 t> L < 3 :;^7ClC^ UT*^^ CO X > b U IC 

f^l^)Xll7$f^l^IL, liRku) ^^9>e4^^Wir^ 
^<Dmmizn^(D^r>^-i\^^BZ^'T^rc^<r>7y-i^ 
[0 0 2 8] mi^^rS2izm^. ^^q^co^sco^^^ 

X^va-;V-r-^^SmL, R AM 4 0 iCSetgTe. 

-gtti, IJ!j6^i:g;fe^n, pTB l 2lC<J:i9^fI^n. 
RAM4 0t:?2t^.^n^. t(OJ:otsmiT-^\t. T 
V Data, Inc. *3it^^c0ft!ic0[^t$£0^it;!)^b 

-3^t)L<Sil/n-FH, CPU3 4tCj:^!B!g. 
}5^L<'^m^'&^^fzi!t>\z[ -^^OUVVV '7^-^7. 

•:)T7l/>v$nrc7:t-^7^y ht$nTl>^. TV§ 
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[0 0 2 9] t:>^a7;i'-^-*>^:/i7 . :/ah3;'-f 7^- 
D-DT'y ^X7:t-A (rolodex for 
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i 

CO 0 3 0] -fU^TyhtDmm&^t. •t^X<Dyt-l^ 

(ii^7U-A(D) itgTt^7;f-A^£:iei!l$-tt^o 7 
7 :t — A t n - X 7 51- -Z^l^ia^:^ i: . 

iJ^->3-KOMi*J;^TS?;t^i^»f^^£:^T7o 7W- 
10 i.7:t-AOlt>^^3iCDl^)f^li. SiiCD7:r-A=&|fliIT 

i:tl7l/-A7:t-Aa-H;cJ:0Jfi31$nxt^^, □ 
CO 0 3 1] 
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(11) I ¥t^^& 

19 20 
*==3s«s COMTNQ form coda =s«=« 

opciun E)fplicit | 

Dim aliDataiB) As snapshot ^?A\^<Dt^Z0)9^^^ 

Dim filc*rDaca(B) As snapshot H Ct^ffi^iD^:^ a -y K 

Dim NOays As Inteoer *T>W®yjef 

Dim NSlots As Integer 35/T»W^»8?r3!& 

Din NStacion A8 Integer ^^WOMSSt 

Dim HaxStation As Integer 'S— XPS^JSKPE 

Dim colorField As Strlnfl JSytD*!^— ti$ST5x-5^'^— :X 7 / -/I' H 

Dim inPreview As Inteflcr 'boolean :/n;a— >l vb— i/tt/jif^S A*? 

Const BideGap .s .05 »ia©^te t^TOraPS 

Const topGAP - 4 ^<^^'^)\ftpSl0tim'^tfD^Wi 

Dim re£Date r-^mitD^) 7 TV>7,T~h 1 

Const IblBeight • 40 B^^fiS J^V^fH^^/l'Wife? (5 00^^-/1/) I 

Conat MINProgWidth - .2 X O -y KOfieffii^^fi'MH i 

Dim slotfiPorDay As Integer -BKIflrgpsn-S^n y h cDS I 

Dim currDay Vi^0QH ! 

Din BtartTirae ^ifl^COlffi^^BB* ; 

Din TSBagin As Long SitD0^P] 
Dim TSEnd As Long fi|fe0S^f*J 
Din TScurr«nt As Long ^^(^^Pi 

Dim rowOffset ^C-ri^i-Zl'Wj {±^J) mcO^U j 
Sub ApplyFilter 1) j 

Dim i As Integer fj0>9 \ 
l£ InStr Iters (currDomain) . "Station"* Then 
colorField a "Type* 

Else 

NSr.ation MaxStation | 
colorField - •Category" 
Enri If 

For i ^ 1 To NDays 

allDAC»ii) .Filter - f ilterot cucrOotnain) 

Sst filterDataa) ' allData ( i) .CreateSnapshot ( > 

Nsxc i '■ 
End Sub 

Sub CtianoeSel (d As String) 

Dim current, flrstMatch 7^— -y-X— — — 
Dim success As Integer ti^SfS (y- Jl) 
Dim 8 A« Integer JEJ (X-r— 3 >) 



I 



I 



50 



j 



(12) 



*^5a¥8-2 9 2 8 6 6 



21 

Dim e TSR7 
Dim TS As Long ^-rA;tCl y h 
Dim r As inftpshot 
Dim aDay As Integer 
Uim di&t S^a 

Dim t>est As Long, bestMar); 



22 



current » f iiterOatafcurxOayJ .Boo)uiiark 
Set F n filterData(cuErnay) 
8 = FrStation-J 
e « Ft -FinlshTSM 
TS = TScurrent 
aoay « curxDey 
success » False 
b«st » 5933 

If d = -Right- Then 

P.KoveNext 
If Not F.EOF Hien 

tS - FCStortTS*) 

success - (FCStation*) - a) And (TS c r I] 
End If 

If Not Bucc«efi Than 
• Closest' ©fete )^ t-i-Ct 5^:^ 'V 
r.Mov«Firct 
Whil* Not F-EOF 

If Ft •FinishTS*! > o Then 

difit s VDictHorii{s, o. F ( 'Station* I , F( •StortTS" ) J 
i; diet b«Bt Th«n 

b«Et = diet 
success * Tr\i« 

bastHark = F.BooXjnark j 
End If : 
End If j 
r . MoveUext ! 
Wend j 
If success Then 

F.BookAark > bestKarlc 
TS a FCStaxtTS*) 
end If 
End I£ 
Elself d = -L«Cf Then 

F . MovePreviou* 
If Kot F.BOF Then 

fJcCt) = Hl;:^r— 3 > =f tTy5A<D»iai^5?irS t «7 

success - (Ft 'Station" ) • ») And IF ( -FinishTS- ) Tfi - I) 
TS = FCStarttS*) | 
End If ! 
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(13) »tM¥8- 

23 2i 
If Vot succ«££ Then 

F.MoveFirst 

While Not r.EOF 

If F I 'StartTS-) < TScurrenC Then : 

diet B VDistHoriz (F{ •Station'* ) . F { TiniahTS" ) , s. TScurrcnt) 
if dist < b«st Then i 

best « dist 
success = True 

beat Mark = F.BooJonarlc j 
End It 

En4 If I 
F-HoveNext I 
Wend j 
If success Then ! 

P. Bookmark « best»ar)c 
TS = PCStartTS-J 
End If 

End It I 
Els«If d • •DoMi- Then j 
' closest* ^^-^Tzt tVLtE(Db<Oi)ir0t^X<O^JI^t 

)rihil« Not F.EOF j 
If F( "Station") > a Than I 

disc a VDictVart(e. TScurrant, e, F [ 'StaLion' ) . r ( -StartTS- ) , 
FCFinlahTS') ) I 
If dist < beat fPhan ! 
b«sC - diet 
succasB c Truft 
bestKartc a F.Boekaurk 
End If 
End If 
F.MoveNext 

Wend i 
If success Then | 

r. Bookmark = bestMark 

TS a rrscarcTS-j 

End If 
Eloelf d - 'Up- Then 

•closest' fe^-rbT9.«CDt»ca<t rj±OTKTC0#sa5'?-xyi> 
While Mot r.BOr 

If Ft "Station" I * s Then 

disc » VI>istV«rti». TScurrent, e, P ( 'Station* ) , FrStartTS"). 

FCFinifihTS ") ) 

r£ dist < best Than 
best ■ disc 

Guccasc = 7ru« j 

bestMark • F.Booknaxk 
End If i 
End If ! 
F.HovePrevious 

Wend 

If success Then 
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F»Boo)cnar)c = bectMarlc 
TS « FCStartTSM 
End If 
tnd If 

If success Then 

TScurrent » TS 
cuirOay s aOay 
DisplayProa 

Else 

7? _ ^ t \ :n V 3 > « tHl^ 
fl Iteroata I curxDay) .Bookmark = current 
End It 
End Sub 

Sub DiftplayProg () 

Dittt F Aa snapshot 
Dim resg As String 

Set F - filCttrData (currDay) 
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shp?roQ(0) . visible t Fal«© 
CAlflcCor.VieiblQ » Falce 

Position shpPros(O). FCStarf), F< -Finish") * Frstation') 
CPlace 0, fiGlector. »hpProg(0) 
«hpProg(0) .Vi«ible = True 
selector .Visible ■ True 

TTsg = StacionScrinolFC -Station')) & • - • fc F( 'Title') ■ • 
mag = rnsg & Format tF( "Start") » 'h:wm AK^PM'I 
msg = rasg s • CO * & Format (r( •Finish' ) . "h:mm AM/PM") 
Soclnfo insg. Color (F(colorField) Mod 9> 
End Sub 

Sub DoPreview () 

Dim msg As String 

irag « 'Station: " StationStcing ( filterData (exirrDay) ( -Station* ) ) 

meg a msg & Chr(lJ) b -Title: ■ & filterData IcurrDay) CTitie-J ft Chr(131 

m«g = msg CaCegoryString ( ( EilterData (currDay) (*Typ«" ) ) , | 

(f ilterDataCcurrOay) ( 'Category' )) ) | 

msg msg & Chr(13) tt "Timoi • t Fortr^t (iilt«rData (cuxrDay) ( "Start") . "mrtm d,yy 

htrm AM/PM-) ' 

msg » msg & Chr(13) & " to • t Format ) filterData (currDay) ( •Finish' ) . •hitnn 

AM/PM-) 

popup. Cap tiorn « msg 
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popup. TOP ■ IblTlriftd) .Top ♦ 2 • IblTimotl) -Height 
popup. Left » 2 

popup, Width s BlotoPerOay - 3 ; 

popup. Vis iblff s True ; 

inPiBview • True ! 

End Bub j 

Sub Deselect n ! 

uscrStacloa = fUterData IcurrDayl ( 'Station- j 
ufi«rStart = filterCacalcurrDay) I 'Start" » 
retumcodo * TOTV 
Ke.Hide 
End Sub 

Sub DrowProy (colorlndex, start, finish, station) i 

'not*: form.XutoRedraw ahould be act to true bo che drawings ar« pdrsistant 
Dim B. t, B blfy^ ^hA ! 
Din days tart | 
Din odge \ 

dayStarc = atartTino ♦ currDay - 1 
L a (start - dayStart) • 48 
K = (finish - dayStart) • 48 

If L < 0 Then L » 0 

If R > slotsFerDay Then R « clots Per Day 

^ff fS! CD 'J * ^ c r 3 H €• m u ^ B e < 

edge = tcurzDay 1) * slots Per Day 
L » 1/ 4 edce * sideOap 
R = R t- edge - sldeGap 

If R - L < KIN?rogWldth Then R - L + MIKPro^Width 

rowOffset = ((500 - 2 * IblHelghc - shpProo tO ». Height ) / NScation) 
t • shpSlot(O) .Top ♦ topGAP ♦ U cation - U • rowOffset ' 
B - t ♦ ohpProg(O) -Height 

drawwidth ■ 1 

Me.FlllScyle - 0 V y H 

Me.FillColor = Color (colorlnd«x Mod 9) 

Line (L, t)-Stop(R - L, B - t), , S B tf^i -5 ^ f V 3 V V f :X tO[ < 

box ; 

End Sub ■ 

Sub Forffl_Actlvata () : 

Dim i AS integer 1}*y>9 
Static saveFllter As String 

If saveFilter = filters (cur tDonvain) Then sani«Filt«r ^ True 
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saveFilter « f iltGrfl(eurrDoinatn) i 

S«cSt«tufi 'TV Coning Op: • t currFilter (TV) , greyCOLOR j 

1? newuser Then | 

popup, Caption • "Press ' ;#37^.rf "J* «if UTS'Tt^hTv^ 5*,^acr)fi«* 

popup. Visible = True j 

newUsitr ■ False j 

End It ] 

|sil;7^;u^TCcvMg;fi?. ^T^?:re(io (SSfUETI?)) 
If Not same Filter Then 

Setlnfo -Loadino program inforroac ion. , GREY 

shppTog {01 .Visible s False \ 

selector .Visible « False 

ApplyPilter 

KfiOceDlcplay j 
End If I 

Diaplayprog 

If inPreview Then DoPrcview 
End Sub 

Sub FomuKoyOown <KeyCode Xtt Integer. Shift Aa Integer) '■ 
Select Case KayCoda 
Cttga AftcCQ") 
End 

Case B_3ACK j 
retumCoda = BACK 

Ke.Hide | 
Case B_HELP ! 

rnvolceHelp 
Case B_PREVIEW 

i£ inPreview Tlien j 
popup. Visible » Fal$« 
inPr«view = False 
Else i 
in?review = True : 
End IE j 
Ca«e B.RIGHT 

If Not filterData (currDay) .EOF Then ChangeSel ("Right") 
Case B_LEFT j 

If Not filterData(currDay) .EOF Then ChangeSel ("Left-)! 
Cat* B,UP ; 

If Mot f iltorDat* (cuxrDay) .ECF Then ChangeSel t "Up" ) 
Case B.DOWN 

If Not f liter Da ta (cuxr Day) .EOF Then ChangeSel ("Down"); 
Case B„SELECT i 

If Not filterDatd (currDay) .EOF Then DoSelaet 
case B_PAGEDOWH 
Case B.PXGEUP 
Case B_riLTER 

retumCode - Filter 

He. Hide j 
Case B_0 
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r«tumCoc3o = SHORTCUT ! 
Mc.Hide I 
End Select : 

If inPreview Then 

DoPreview ' 
Else ; 

popup. Visible » False 
End If 

End Sub : 

Sub Fornv_U>a(S () j 
Oim i As Integer ! 
Dim t 'AS time I 

He.BackColor » fonnCOWJR i 
6hpPro9(0) -BackColor • BorderColor 

IblDayiOl .SaclcColor - lt>acJcgrcxiiidC0LOR | 
IblAM.BackColor « backgroundCOLOR 

lblPM.B*cJcColor - backgroundCOLOR j 

aeloetor .BorderColor - Bord«rColoi: 

d*yLino(0) .BorderColor - divideColor 

IblTiine(O) .ror«Color - «lotCOI/OR 

shpSlot tO) .BorderColor » alotCOLOn 

If displayModa = 'TV 7h«n 

IblDaytO) .Fonts! to a ciuIIFONT ' 
IblTime tOl .FontSize « sraallFCNT j 
IblAM.FontSiie s emUFONT j 
IblPM.FontSize « snail FONT j 
popup. Font Size = mediumFOKT 

Else ! 
IblDay (0) .FontSize = laroeFONT 
lblTin»e(0) .FontSlze =: largePONT 

IblAW.FoncSize « largeFONT j 
IblPM.FontSiJc s largeFONT | 
popup. FontSlze « largeFONT [ 
End If j 

SizeAFonft Me, DiepTcp, DispHeight, DispLeit, PispWidtli 
Me. Scale (0, 0)-(5OO, SOO) 

SiaeAControl IblDay(O), 0, IblHeight, 0, 500 

SiToAControl IblPM, 0, IblMoight, 0, 30 j 
SizeAControl IblAM, 0, IblHeight. 500 - 3D. 30 
SizeAContrcl IblTinie(O), IblHeight, IblHeight, 0, 50 

Sl^eAControl shpSlot(O), 2 • IbXHeighc ♦ .5 ► topGAP, 500 - 3 • IblHeight, 0, 50 
alzeAControl popup, 250. 200. 250. 200 ; 
seleccor .BorderWidth - 1 
' doyLinefO) .Yl = 0 
dnyLinelO) ,Y2 = 500 
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33 34 
fitartTitoe « faVeToday * faVoTime 'thit would b« seL at activate to currant half 

hour 

NDays = 1 • 

slotsPerDay « 24 | 

NSlOCs - NDays • slutsPerDay j 

sameFilter = False ! 
baitieVicw «» False 
inPreview - False 

7*-Z*:X^r-;u^J:i^rH':XMf>>t> Kljn (day and cim* lib«l»} i 

Load IblOay(l) | 
SlzeAConcrol IblDaydl, 0, IblHeight, 0. slotsPerDay j 
ItJlDaytD.Captlon • DayStrtngistartTtBve. "lonoM 
IblDay(l) .Visible « True ! 
IblTinie(O) .width « 1 | 
For i « 1 To slotaPerDay I 

Load IblTlned) 

IblTiffle(i) .Move i - 1 

t - DateAddCrx'. 30 • (i - IK atortTiow) 3 O^Ot^m^iJd^i 
IblTimedJ -Caption - rimeLobel(c) 
IblTinve(i) .Visible - True 

lblTime(i» .ZOrder I 
N«xt i I 

i 

InputData 
Tom_Kcz i va to 
someVlew ■ Truo 
End Sub 

Sub IfiputOata tl 

i 

Dim DB As database j 
Dim Re£Snap As snapshot j 

Set D3 ^ OpenDaLBbaseClVDB) ' 

'get reference date and number of staciona 

Sac RefSnap = DB.Cr«at«3D«p«hot { 'Reference' ) j 
RefSnap.FlndFirat •€tt;='B^^" 
r«fDate * DateValue(R«f Snop I'Data" ) » 
RofSnap.FlndFirst ' N S X-? — V" 
MajeStation ^ V*i (RefSnap 1' Data' } ) 

Set AllD«ca(0) » DB.CraatoSnapshoc t "Programs" ) j 

TSBegln = Abs(DateDlf f ( 'n' ♦ staxcTinie, refDace) \ 30) 
TSEnd - TSBegla * sXotsParDay - 1 slotsPcrUaf^^-tr h SfL/i w ac?-i vi? 
«110ata(0) .Filter s overlap (TSBeain. TSEnd) 
Set allDacad) ? allDatalO} .cr«ateSnapshot() 
Sat allDatatOl = Nothing 'won't be needing everything 
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End Sub 



Sub MakeDisplay [) 

T=-y «^io3iJ5^ -ferfti air 

Dim i As Integer tl^y^S 
Dim d As Integer Dt-t 
Pirn F AS snapehoc IlSu' 



It 



Not sameview Then 
End If 



OoEv«nts ^f^J;5Cr^) 
For d - 1 To KOiys 
cur rDay d 

For i 0 To alot«PerOoy 
dra«nfidth ^ 4 

Line (i, Jhp3lot(0) .Top)-ti» 500> , slotCOLOR 
HflXt i i 

Set P - filterDat«(d) j 
It Not P. EOF Then i 
F.Mov«Plr«t 
Do While Net F.BOF 

DrawProg FlcolorFiold) , F(-Start'». FCFinlah'I. ri'Station') 
F.MoveNext 

Locp 

F.KoveFirst 
End XI 
Next C 

TScurrenc • TSBegln 
currDoy = 1 
shpProg ( 0 ) - ZOrder 
selector . ZOrder 
Sec r - filCerDecatcurrDayJ 

Do While TSeurrent <= TSEnd 

F.FindFirac Overlap (TSeurrent , TSeurrent) 
If Not F.NcHatch Then 

DisplayProg 

Exit Do 
Zt\d If 

TSeurrent = TSeurrent ♦ 1 

Loop 

TScuprt^lfi^aHHE^l:: ft i w t *5SK 

If TSeurrent > TSEnd Then TSeurrent a TSBflgin 
End Sub 



Sub Position (shape As Control, start, finish, station) 
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Oils relatlv«L. relACiveVf. dayStart 
Dim edge 

<3av3cart = startTime ♦ currDay - 1 
rclar.ivel. » I start - dayStart) * 48 
relaclvew = Uinleh - daystarti * 43 - relativeL 

If relativeL < 0 Then 

reiativeW * relaciveW ♦ relatlvcL 

relativeL = 0 
End I£ 

If relotivew f relativeL > slotsPerDay Then relatlveW e sLotsPtrDay - relativeL 
edg» » (currDay - II * alotsPerDay 

shape. Left - relativeL ♦ edg« ♦ mideGap j 
ahapo .Width » relntiveW - 2 * 3ideG«p | 

If shape .Width < MlNProgfWidth l^en shape. Width « MINProgWidth | 

rowoffcet « ((500 - 2 • IblHeight - ehpProg(OKHelght) / Natation) 
shape. Top - shpSlot (0) .Top ♦ topCAP ♦ utation - l» * rowOffact 
£nd Sub 

Function VDistHorii (stacionl, £iri»h, stacion2. *t«rt) 

Dim dcltaa, deltaT 'change in row and time 1 

Dim rovi, rowZ | 

j 

rowl " ccacionl i 
row2 = st.ation2 

if : ;?^r--i^3 v/f<i,.nhrr^A*f*lt'^aTv^'Sv^ia^fct^l695f»*>5!titt3tt:tc4 ; 

deltoR - Xb9{rowi - rw2l • (100 / NStation) 

deltaT » (start - finiih) * (100 / slotsPerOay) : 

'penalize programs that ace more upfcdown than to aide j 

If doltaT <- 1 Then deltaT • (Ciniflh * 3 - start) * (100 / slotsPerDay) 

If deltaT < 1 Then deltaT » 100 / slotsPerDay 'don' c allow zero | 
VDlctHorii « delC*H * doltaT 

E.id Function j 

Function VDistVert (etationl. startl, finishl, station2, »tart2. finishZ) 

Dim deLtaR. delcaT 'change in row and time ; 
Dim rowl. row2 

rowl = staticnl 

row2 • stfttion2 ; 
delcaR m Abe (rowl - row2j / UStation 

If fitartl > fiaieh2 Then 

deltaT = Absietartl - flni3h2) 
Eleelf starts > finishl Then 

deltaT * Abs(£itart2 - finishl J 

Else 

deltaT ^ 0 
End If 

VDiscVert - deltaR + 2 • delcaT 
End Funccion 
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Option Explicit 
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Sub Form^ccivatc () 

S«lect Caoe r<CumCod« 
C&6e SHOWVIEW 

views (currDoma in) , Show 
Caj« PICK 

frmSelect.Show I 
Cas« TOTV I 

fnnTV.ShOW ! 
Case LASIVIEW ! 

sameFiXcer » Tme | 

views ( currDomaln) . Show 
case STARTUP ■ 

Case £lse 

frrDex. Show 
End Select 

End Sub j 

I 
t 

Sub ForTt_K«yDown (KayCodo Aa Integer. Shift Aj Integer t ! 

If KeyCodo a AccCQM Then I 
End ■ 

End If 
End Sub 

Sub Forw^Load 1 J 

Ke.BackColor - formCOUJR 

sspInfo.FontSire a mediumFONT ; 
sspstatus .FontSize " rnediuinFONT i 

ScrWidch a Screen. width | 
ScrHeight » Screen . Height j 
If displayKode c -mini" Then 

ScrHeight - ScrHeiaht • .54 
scivtidch « scrwidth • .712 
displayKode s "TV* 

Else 

GcrKflight - ScrHeight • .83 i 
End If I 

InnFramcTop « 0 
frtnFramo. Height « ScrHaight 
frmFrarae.Lcft « 0 
trniFraniG. Width ScrWidth 

sspinfo. visible « True 

sspStatufi. Visible a True 

DlspTop a ssplnfo. Height +1,5 ^ 
DlspHeight = frroFraro. Height - (ospStatu».H«ight * 1.5) 7 DiapTop 
DispLeft p 0 \ 
Dlspwidth = fnnFrane. Width 
End Sub 

Sub SetupStatus (J 
end Sub 
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Option E^cpliclt 

Din OB AS <Ut*l?ase 'full database with indtxes 

Dim BlinkControl As Control m^th:i-fpii^Y (^^Sli^rfL) -y h 
Oiro lcemSelect«cl As Integer 1 T^e»nWDIS'LATf^ 

Dim IccSelected As Integer I ty> bMAnoC-N ; 
Dim inpreview As integer JiJggia VU) 

Dire coptionField As String ^mU:m^^tl^v'~9^-7.'7 ^ —fl ^ 

Lin startTiire T V 'j ;^ h (Omtfl^^ 

Din TS Aa Long 7V^)Zh<09-<WAO'yh 

Dim rowOffaet 2 h v "/fBCDSa 

Dim browsing Ao String J^S®'>3 y t >i^'J X f £9^ f T 

Dim colorField As String Jt;^— *reti;Sr -f -JH* (9 i TUtltU^-^^) 

Const MAXDISPU^Y - 6 ^ P-XY V '/O^BSSi 
Dim MAXITEM As Intogor ^ U J^l hCl^jtJ ^JfliK 
Dim MAXUX As Integer D^— '^t4tet<2>Sfc 

Dim whichrltemlMAXDI SPLAY) As Integer Tlt&tsltP.tL^jp^Si 

const GAP = 10 iJX hiftDCT:?^-^ 
Const EXTRA = 70 Sd^)£0**fl^)3fe(D/U-/» 

Const rRducedCXTRA « 20 feff'M. tT^SSH Jot* 5Sa&©-St§C0 tto® JU— /j^ ! 

Const T = 50 if^n^^n.tt'):^Y 

Const H » 1000 - 2 • T 

Const locL - 30 tto\^*)T 

Const locW - 100 

Const dispL » locW + 2 * loeb 

Const dispW - 1000 - dispL - loct 
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Dim allOaca Aa snapshot 
Dim iteinData As snapshot 
Dim storeData As snapshot 
Dim dcptDrttii As snapshot 
Dim stuftDaLa As snapshot 
Dim fllterData As snapshot 
Disi marker { 1000) As Strina 
Dim locStart(lOOO) 'rltem index for start 

Scb ApplyFilter () 

Dim sorcscrlng As String 



8-292866 



of locator 



tf He Is TVlist Then 

captionPield • 'Title* 

jortString " 

colorFleia - -type* 
EIa«t£ H« Is HOVlist Then 

If sameVltw Then 

Lo«(3Dat« 

AllData. Filter » viewFiltez 
Sat allData " al iData .Cr eateSnapshoc ( ) 
End If 

captionField » "Tltl*" 
sortStrinff = "Title" 
colorField = "Type" 
Elsalf n« Is SHOPIist Then 

select Case filters (currDocnain) 
Case 'Store" 

browsing - •Btore" 

set allsaca • storeData 

captionField a "name* 

filters (curxDcrna in) ^ 

eortStrin^ - "name" 

colorFieXd - 

Caso *depf j 
browning « "dept" ! 
doptOata.FindFirst "name • t userString t '•' I 
users tring - "* 'fix—this is cheating, iiserStringti{J:)nT'^afT 'fet^ 
Tf deptData.HoMateh Then ; 
Set allData - deptDaca ! 
Ci Iters (currDomain) s •■ | 

Else 

brows infl = •stuff 

filters (currDomain) ■ ' Idept code I ■ ' t deptData [ "coda" ) 
Set allData = stuCfData 
End If ' 
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captioTiField e •nan»9" 
eortString a •name* 
colorTield = 

Case "iteiT.* | 
browsing • 'item* j 
Set allDaLft «» itemData j 
captionField = 'name" j 
colorField =• • " [ 
filters* cur rDojnatn) - "name like *" & userString b 
sortstrlna = "naiae' 

Case Else 

browaing ■ •stuff 
captionField « •nar»e" 
BortStrinff • •name* 

colorField » Mitem code}' | 
Set allOata = stu££Data | 
End Select 

End If ; 
allDato. Filter - filters (cur rDoinain) 

li filters (currCciwsin) • Then ' 
AllDattt.FindFirst "Not • k captioxiFieia 

Else 

allData.FindFirst ollData. Filter 
End l£ 

If allData.NoMatch Then 
MWCtTEM = 0 

Else 

Set filterData = allData.CreateSnapshot t) ; 
filterData.Sort = eortString ! 
Set filteroata - f llterData .CreateSnapahot () 
End If 
EJrtd Sub 



Sub BlinkStart (C Ac Control, vis) 
Set BlinkContcoL = C 
BlinJcControl -Visible c vi« 
tmr Blink. Enabled » True 

£nd Sub 

Sub BlirkStop (vie) 

cirxBl ink. Enabled - False 

If BlinkControl Is Kothing Then 

Else 

BlinkControl. Visible • True 
End If 

Sec BlinkControl * Nothing 
End Sub 



Sub ChangeLoc (direct As String) 
Select Case direct 
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Ca»» -Up" 

If locSelftcted > 1 Then 

locSelocted - locSelectod - I 

RftdoDicplay | 

End If i 
Caco "Down" 

I£ locSalvcted < MAXLOC Then 

loc5«l«ct«d « Ioc5«lected ♦ 1 
AedoDlflplay 
End If 
End Select 

Sub ChangeSel (direct As String) 
Select Case direct 

C«»e 'Up* ! 
If ItemSelected > 1 Then 

itenSelected « itemSelecced - 1 
selector. Top * ItemBox (ItemSelectedl .Tc^ - GAP 
cltenfO) .Top a rlcemU-hiehrlreaDdtemSelected) ) .Top 
rX ten (0) .Left « locL - GAP 
rltea(O) .Width • locW + 2 * GAP 
Setltenlnfo 
BlseZf 1 Deselected > 1 Hien 

IteznSelected KAXDX5PLAY 

locSelected - locSelected - 1 j 

R«doDispl«y 
End If 
Cose 'Down" 

If iteinSelect«d < MWCDISPLAV Then 

If (locSelected - 1) ♦ MAXDISPLAV ♦ itcmSelocCed < HAXITEH Then 

itemSelecteca = itenfielectod ♦ 1 j 
selector. Top * itemBoxtiteciSeLectcdl .Top - GAP j 
rItem(0>.Top ■ rlteintwhlchrlt«m( itemSelectedJ ) .Top 

rltem(O) .Lef c = locL - GA? ! 

rltera(01 .Width » locW *• 2 ' GAP j 
SetltetoInCo 

End If 

Elaelf locSelected < KAXLOC Th«n 

itemSftlectcd ■> I 

locSelected « locSelected + I 

RodoOliplAy ! 

End 1£ I 

End Select ! 

rltemlO) .Visible = True | 

End Sub I 

Sub DoPrevlew () 

I 

I 
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Din i As Integer 'counter 
inPreview - True 

locator. visible - False 
selector .Visible « False 
For i » 1 To MAXDISPLAY 

itcmBoxd) .Visible • False 
leftArrowli) .Visible «= False 
right3^r(7W(i> .Visible « False 



50 

I 
I 



- 'Getting prsvievr. 



a True 



Next i 

prevleh/Win .Caption 
previeWWin . ZOrder - 
previcvMln . Vi s ible 

Shovf Preview 
end Sub 

Sub DoSelect () 

If Me Is TVlist Ttien 

userStation « £ilterData( "StationM 
uflerStart - £iiterData(*Start' I 
retumCode ■ TOTV 
Me. Hide 
Elself Me Is MOVlist Then 

sameFilter ^ True j 
TellUeer 'You would be asked to coof im your order of * fit 
f ilterData ( Title* ) 

Elself Me Is SHQPllst Then 
Select Case browsing 
Case "stuff 

BameFilter s True ; 
Teliuser "You would be asked to conf ina your order of ■ & 
f i 1 1 erData ( " name " ) 

Case 'store' 

fi Iters (currDomaln) - • [store code) = ' fi f ilteiDataC 'codeM 
PomuActlvate i 

Cose -Itenv" ! 

filters(carrI>oinainJ - • [Stem codej - " fc tilterDatafcodO 
FonruXctivate j 

Ca&e "depf I 

CtltcretcurrOomain) = • (dept code] - • & f iltcrData ('code' ) 
rontL.ActivAte 

End Select 
End If 
End Sub 
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Sub EndPreview {) 

Diitt i As Integer 'counter 
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previewWin. Visible = Falce 
inPreview « F«li« 
locator. Visible » True 
selector .Visible = True 
pr«vi€V/Win.Top = displayLisc.Top 
RedoOi splay 
End sub 

Sub Formic tivate i) 

Otin 1 AS integer * counter 

Dim section As Integer p/r-rS'OtJ^r-i/aVR^/J^V h 
Dim NViBible A3 Integer ^^>3 >t*iC9^ffi;f^t2aia <^^) 
Dim rag As String 
Static BiiveFilter As String 
Static •ttV8Vi«*< As String 

If Not oameView Then sameView - <3av«View • viewFilter) 
MVcView « viewFiXter i 
If Not »«m«Filt»r Then BameFllter » leavoFilter - f i Iters {cur rDofrain) > 
««VQFilter = filters (currDoM Lnl 

SatStatus currvi«w(curr0o«»ainl currFiltar (currDotwizi) . greyCOIX>R 
If aameFilter And sanvaView Than ; 

If newUser And Not K« I« SHOPXist Then i 

popup. Caption ■ 'To change the category shown, yross the 'Category' 



button. - 



Else 



popup. Visible » True 

newUsor = False 
End If 
RedoDispXa/ 

Satlnfo -Selecting data* please wait...", GREY 
If MAXITEM - 0 Then 

previeWWin. Caption - " 

previewWin. Visible ■ False 
End If 
DoCvencB 

IE inPreview Then EndPrevicw 

For i a 1 To HAXDrSPIAY 

icetriBoxUl .Caption = " 
Next i 

For 1 • 1 To WAXtTEM 

Unload rltein(i) 
Next 1 
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ApplyFilCer 

II KAXITEM ^ 0 Then : 
'giv« "no matches" msg j 
locator .Visibl* ■ t'also 

rlteitt{0) .Visible * False i 
For i a 1 To MAXDISPLATf ' | 

MAXITEM c 0 I 

itejiBox(i) -Vifiibla = False i 

laftArrowti) .Visible = False 

rightATTOwa) .Visible * False 
Next i 

previewwin. Caption ■ "No matches were found' t Chr(13l 
prcviewWin. Caption a previewwin. Caption & "Press •Categcry* to change 
the selection." 

previewwin. ZOrder ! 
prevlevMin.Visibla - Tme | 
itereelected ■ 0 i . 

locSelectedl » 0 | 
Else j 

f i 1 1 erZ>a t a . Hovelia s c 

MAXITEM - filtcrDota.RftcordCotint 

rowOffsct - (H - rlt«m(0) .Haight) ; MAXITEK 

If rowOfCcot > cltcm(O) .Haight ■» GAP Then rowQEfeet - rrcein(O) .Height 
GAP 'max diatanco 

rltcm(O) .Vieiblo ■ Falco 
rltem(O) .Top « T 

rltemtO) .Left » lOcL + reducedEXTRA 
rltemlO) .Width = locW - 2 * xeducedKXTRA 
rltemtO) .BacJcColor ■ itemCOLOR 
filterData.MoveFirst 

section = 0 'number o£ locator locations 

NVlsibJe = MAJCDISPLAY 'SO first section will be marked correctly 
ror i = 1 TO KAXITEK 
Load rItemCil 

If colorField Then ! 

rlt«r»(i) .BaclcColor = Color IVal ( fi IterDacatcolorField) ) Mod 9) 
End I£ 

NViaible - NVisihle * 1 

cItBm(i).Top • T ♦ U - 1) • rcwOffset 

I£ NViBibla > MAXDISFLAY Thfin 

U 1. ^ o <r - ;> a /r - a > t- Bfi 
serdon s soction 1 
locSLart (section) o i 
inarkar ( sectioni » CiKer Data. Bookmark 
NVlsible • 1 
End IC 

If Ke Is TVlist Then 

1 
I 



I 
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If filtorOataCfitartTS') < T3 Then | 

rltem(i) .Left * ritemd) .Left - reducedEXTRA 
rltemU) -Width » rltem{i) .Width ^ reducedEXTRA 

End If I 

If f LlcerDataCFinishTS") > TS Then ! 

rltemdl -Width = rlteml i ) .Width ♦ reducedEXTRA 

End If 
End If 

ritemi i ) . ZOrder 

rlt«nli ) . Vicible = True » 
f ilc«rDAta.XOV«Na)Ct 1 
Next i i ■ 

KAXLOC - section | 
locStart (section ♦ 1) - MAXITEM + 1 i 

pinselcctorOft^fe'fe *y h (ubc rltera(0)l ! 

rrtero(O) .Left • locL - GAP 

rltem(O) .Width « locw * 2 • GAP : ' 

itensel«cted 'I 

IocSeI«ct«d « 1 i 
locator. Visible « Tm© j 
rltem{0) .BackColor « highlightCOLOR 

RedoDiepIay 
End If 
End If 
End Sub 



Sub Forni^KcyDgTrti {KeyCode f\s Integer, Shlfc As Integer) 
popup .Visible ~ False 
Select Case KeyCode 
Case Aact'QM 

End 
Case B_BACK 

If Me Is SHOPlist Ax^d browsing =• "item* Then 
12 >!r A'l^ t T -5 W>>'<? V> 
rgturnCode ■ ALPHA 
Me. Hide 

Klsa 

ratumCode • BACK 
Ma.Hid« 
End If 
Case B.HELP 

InvoKeHelp 
Case B^PREVIEW 

If inPreview Then 
EndPreview 

Else 

DoPreview 
End If 
Case B^SELECT 

I£ MAXITEM > 0 Then DoSelect 



I 



(30) 



Case B_UP 

If MAXITEK > 0 Then ChangeSel ("Up") 
Casa B_DOWN 

If MAXITEM > 0 Then ChangeSel CDown") 
Cane B_R1GHT 

II He Is Tnist Then 

returnCode = COMING | 
Me. Hide j 

End If I 
Case B_L£FT j 
Case B^PAGEUP j 

If inPreviftw Then i 

If pr©vi*wWin.Top < dicplayUct.Top Th«n 

previevWln.Top - previewWin.Top * diepIayList. Height 
End If 

Else 

l£ fclAXITEM > 0 Then ChangeLoc ('Up') 
End If ! 
Case B_PAGEDOWN 

If InPreview Then j 

If previcwvtin .Top ♦ previewwin. Height > diepLayList.Top + 
dlsplayList. Height Then I 

pr«vi«wWin.Top - pr^viewWin.Top - dieplayLiet. Height 
End If 

Else 

IE MAXITEM > 0 Then ChangeLoc ("Down") 
End If i 
Case B.FILTER j 
If Wot Me Is SHOPlist Then ; 
rctarnCode - Filter 1 
Me. Hide | 
End i: 
Case B_0 

returnCode = SHORTCUT 
He. Hide 
End Select 
End Sub 

Sab Form_t.osd { > 

Dim i Ac Integer 'counter 

OiiQ iteirJ^oom i 

i 

itemBoxjO) -FontSixe - largeFONT 
l«ftArrow(0> .FoncSize - lorgeFONT 
rightArrow(O) -FontSize - largeFONT 
If displayMode = 'PC" Then 

popup. Font Size = largeFONT 

previevwin. Fonts i2e - largeFONT 

Else 



i 

I 
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previewWin. Fonts is « ■ ni»diuirfONT 
popup. Font Siae s finallFOOT 
End It 

rIteretO) .BackColor » itenCOLOR 
selector .FillColor • high light COLOR 

display-List .FillColor = backgroundTOtOR : 
prcviewMin.BackColor " bacVgroundCOLOR 
locator .FiUCol or = backgroundCOLOR 

iteniBox tOJ .BackColor = itewCOLOR : 
leftArrowlOJ .BackColor - IcenCOLOR \ 
rlghLArrow(O) .BackColor = itertCOLOR i 
shpsiot .BorderColor = slotCOLOR I 

SlzeAromt Me, DlspTop, DiepHelgbt, DispLeft. DispWldc^i 

Me. Scale <0, 0)-tlOOO, 1000) i 

SizeACoiJtxol locator. T - GAP, H * GAP. locL - GAP. locw -^ 2 * GAP 

SizeAControX shpsloc, T, U, locL ♦ reducedECTRA, locW - 2 • reducedEXTRA 

SizeACortrol displayUsc, T - GAP. H + GAP, di*pL. diapw ; 

SizeACcatrol popup. di»pW / 2. 4 • Xoctf, dispW / 2, 4 • loctf 

CPlftce 1. previewWin, disployOlst 

locator. ZOrd«r \ 
ehpSlot.ZOrder j 
rltemfO) .20rd<sr | 
itemRoom » H / KAXDISPLAV 

SizeAControl ItamBoxfO). T + (.5 • GAP). itemRoom - GAP. dispi EXTRA, dispW - 
2 • EXTRA 

Si zeAControl patch tO) . 50. (6.8 • itemBox 10) .H«ight ) . <12.3 • iteijiBox (0) -Width) , 
(7 * it«mBox (01 .Height) * 
If dlsplayMode » 'TV* Than ; 
patch(O) .Left =8,08 * IteiiiBox(O) .Width I 
patch (0) .Height - 3.7 • iteirAox {01 .Foight 
End If ; 
SiZftAControl XeftArrow(O) . T ♦ £.5 • GAP). itemRoom - gap, dispL. | EXTRA 
SlzeACOrtcrol rlahtArrow(O) . T ♦ 1.5 ♦ GAP), it«ruRoora - CAP. dispLj*- diepw - 
EXTRA, EXTRA j 

sizeAConcrol seXeccor. T, iteinRoon ♦ GAP, dispL, dispW | 

selector .ZOrder 

For i = 1 TO tlAXOI SPLAY 

'Load iceinBox<U 'Now cre9t«d at design time--fixed rmnOjer i6) 

itamBoxd) .Visible = False 

CCopy lt*niSox(ai. itamBoxli) \ 
p«tch(i) .Visible - False 
CPlace 0. patchCi), potchtO) 

i temBox ( i ) . Top - i teitiBox ( 0) -Top ♦ (i - 1) * it«nRooro 
Load le£tArrovr4i| 

l*j£tArrow(i) .Top = itamBox ( i ) -Top j 
Load rightArrowiil ' 
rightArrow(i) .Top • i temBox (i) .Top 
Next i 



BameFilcer • False 
soneView - False 
LoadDaca 
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Fom-ActivatB 
sameFilter = Tru« 

End Sub 

Function ItemString (> Xs Stziny 
Dim may As String 



62 



I 



If We Is TVlist Theti . 

msg = ronrat IfiltcrDatat'Title' 1 ) i ' on ' | 

msg a msg Stat ionStrina ( filterCata ( "Stacion" )) fc * ; 

msg o msg ft TimeStrlng t filterDatai 'Start" ] ) t • to • 

msg - msg k TimeString tfilterData( "Finish* ) ) | 
Clselt Me Is W0Vll3t THen I 

meg » Format (fllterData( "Title-) J ' 

msg « nag fc ' 4 Fonoat (f llterDataC "Year" H 
Elaelf Me Is SHOPlist Then f 

S«lttct Cak* browsing 

Case • stuff i 

msg - Forraat (filtcrDataCname-) J A ' - $" t Format ( filterData C 'pric*' ) 1 
End Select j 
End 1£ i 
ItenString • nsg 
End Function 

Sub LoadData ■ { ) \ 
Dim re£Sx:ap Afi cnapehot 
Dim refOate 

If Me Is TVlist Then I 
startTine = faKeToday + fakeTime { 
Sec DB « QpenDat&ba6«(TVDa) ; 
Set retSnap ■ uB.CreateSnapshot I "Referenca' ) 

refsnap.FindFirst "Name « 'Date' ' I 
refJDate « DateValue(reCsnap( "Pata' H 

Set allData = DB . CreateSnapshot {* Programs " ) ! 

TS => tatartTime - refOate) • 48 i 

allDaca. Filter * OverloplTS. TS) | 

Set allDota « ollData .CreaceSnapshot () 
El self Ms Is MOVlist Then | 

Set 03 Openr>acabB5e(MVr>B) 1 

S«t allData » DB.Cre*CeSnapshot( 'Movies") 1 
EibQlE Ma Is SHOPlist Thon | 

Set 03 - OpenD«tab«ce{5PDB| 

Sec iceinData - DB. Cr»AC«Sn*pshot ( "Itamfi" ) 

Set storeData = DB.CreateSnapshot t "Stores' ) 

Sec deptDaca ■ DB.CraataSnapchot I 'Dopartments ") 

Set etuCCData = DB.CreateSnapshot ( "Stuff 
End ir 
End Sub 

Sub HedoDisplay <) 
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i teeaBoxesrt <r)33ij: * n -T- ^ F*'j ^DJ^ g I: ^kc.; 1 5 J; -5 C -t -y V 

' reposition locator And »fllector, update info box 

Dim last As Int«9or 
Dim i As Integer 

Dim Indent Ae Integer 'indese of rltem 

It KAXITEM - 0 Then Exit Sub 

f liter Oft ta .Bookmark - marker { XocSelected) 



64 

i 



Indftx B IccStart (1 Deselected) 

For i • 1 To MAXOISPLAY 

If filtcrData.ECF Then 
'hid« ampty itomBox 
itcmBox{i» .Caption • 
itexnBox(i) .Visibl« = FkIeb 
leftArrcw(i) .Vlslbl* c Faico 
rightArrowti) .Visible 9 Faloe 

Else 



whichrltem(i) » Index 'so wa can highlight th« correct rXtem (reduced 
item) \ 

If colorFleld <> Than item3ox{i» .BAckColor » 
Color (CilterOaCa(colorFleId} Hod 9) ; 
ItemBoxd} .caption c f iicerDaCa(captionrield) 
If Not inPreview Then iteniBoxdl .Vijlbla = True 
If Ms Is TVlist And Not InPreview Then ! 
•show arrows to r« fleet program length j 
If CilterDataCStartTSM < TS Then ! 
leftArrow(il .BackCoior « iterriox (1 ) .BackColor ' 
leEtArrow(iK Visible - True j 
Else I 
lefftArrow(i) .vi»ible » False j 
find If 

rf filtarDatacrinishTS- J > TS Then 

TightArrow(i) .BackColor - i cemSox (ij , BackColor 
rightArrowti) .Visible « True 

Else 

rightArrowli) .Vi«iblo = False 
End If j 
'show color patch for subcategory ] 
patchli) .FillColor = Color If iiterl>ata< "Category-) Mod 9) 
patchliJ .Visible = True | 
End If 

last s i i 
Index e Index + 1 

f ilterOata.KoveMext i 
End If 
Nexc i 



If itemSelected > lait Then 

itemSel«cted » last 
End If 
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displayLUt.Heiyht - H + 2 • GAP - (H ; MAXDISPLAY * tKAXDISPIAY ; last) J 
'display XL at »hrin)c» wh«n fewer thftn MXXDISPLAY items displayed ! 

5tfl«ctor,Top « i teniBox( it«irSelect«d) .Top - GAP 'behind currerxc IcimBOK 

locator. Top = T • TQwOffset ■ i locStart UocSelected) - 1) ; 

locator . Ilaight = U»t * rowOffset ■* rltera(O) .Height - rowOffset 'heigh: shrinks 
wh«n uicplayLisr. shrinks j 

rlt«m(0( .Top - rIt«mIwhichrlCejn(icemSel«Cted) ) .Top ! 

SetrteiRlnfo 
End Sub 

Sou Setltemlnfo () 
ffllR^v 5F (X) 5l2E®ia U ffi Sr 5^ 

Din i As Intccttr '* of rftcords away from boolomrk we naad Co 90 
Ditn asg Aa String 

filterData.Boo)aMrk - marker ElocSelected) 
i » iteii5elected 
While ti > 1) 

f iltcrDaco.MoveWcxc 

i - i - 1 

Werd 

Setlnfo Jt«rtStrinflt} , (itemBoxfitemSeleccedK SacKColor) 

d2ss? fcnuy U tr^ - Y > H ^ ^5e«r 

l£ inP review Then ShowPrevicw 
End Sub 



Sub ShowPraviww t ) 1 

' of th« itom colectcd j 

Dim nsg As String I 

If Me Is MOVliBt Than 1 

msg « filcerDatat-Plot") \ 
Elself Me Is TVlist Then 

mag = f ilterData (captionField) fc Chr(13) 

msg & StacionScrlngifiltarDatal •Station' ) ) £ Chr(l3) 

rusg & CategocyString((filt«rDAtaCType' ) ) . (f ilterDataCCacagory-) ) ) 

I 

•This would be a video, still, or textual preview o£ 

msg & filtcr9ata(captionFieldl j 

nag t ! 



meg 
msg = 

Else 

msg 
mag 
mag 
End If 

proviowWin. Viaible • False 
prov3 ewWin .Capcion « mag 
CPlace 0. prsviawWin. displayLiat 
previewWin. Visible ■ Tnia 
End Sub 



Sub cn«-BHn)v_Tijner {J 

Blinkcontrol. Visible 
End Sub 



a Not BlinkControl.viaibla 



[0 0 3 4] 
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option Explicit 
Const GAP - 500 



Sub Fom.Activate () 
t ox t Area . Caption 
£nd Sub 



Sub FomuKeyDown (KoyCode Ao Integer, 
Selact: Cas« K«yCodo 
Cas« Elsa 

r^cumCode « KayCod« 
Me. Hide 
End S«l*ct 
End Sub 



Shift As Integer) 



Sub FornutiOad () 

Me.BockColor = ItemcOLOR 
text^rca.BaclcColor = IcenCOLOR 
textArea.FontSizQ * large rOMT 

SiteAForm Me, DispTop/ DiBpHeiaht, DispLeft, 
SicftAControl textArea, OA?, DispHeight - 3 • 

text Are a. Caption « 
End Sub ZO 



Oispwldch 

GA?. GAP, DispWidch 



GAP 



[0 0 3 5] 



option Explicit 



Dim BllnkControl As Control i^SiHT AsgiJ^Cttt-S^-Oi^ 
Dim parent As Inteoer ISi'Jo— ^0)1Si 
Dim current As Integer l^^StCD*— 



data file changes j 
Const filterCARD « 1 TV J H }19 ^r,:x- \ 
Const mfilterCARD - 68 A— K— 7 / /i'^ > - 
Const homeCARD -96 /-^>/ — ,■L — 

Dim laetCard As Intogwr 7 -f ;i,^f*]t-*i ftlHf^iSJR:^— >^jBE*:4*^— /I' 

Const MAXriTLE = 3 Hiff ; HAniTL£C^5i^ i^itliloadCraphicsCD^ - Htl £*ft%i2'K tt* * 
U>adGr3phic3 

const CARDSHIFT ^ 2.5 -^K ^7p^)Z^ WOT HRtStZfel^ SS^ftM 
Const HAXROws « 3 i3~'\^^r^^O)fteti0i^C^—^^^><^^^7)^^l^$Si 
Const MAXCDL5 = 3 jtj- K55T^Ori«)0 K^^^tt^ >ffl$aEnW^3S[ 
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Const MAXCARQ = 9 -vXiclc^^A-J i*- FOS^cft 
Const HAXITEM = 9 Y ±<0^9 yO^:k^ 

Const actCOMING = 2 j 
Const acCNOW =■ 3 ; 
Const actNEXT = 5 ! 
Const actALPHASHOP =6 ' 
Const actFILTER = 7 \ 
Const actALPKATV = 8 
Const actALPHAMOV * 9 
Const act DOMAIN =10 
Const actLATER H 
Const actWEEK - 12 

Const actWlCEND - 13 ; 
Const actSCHED - 14 j 
Const shortTWIEW » 3C ; 
Const shoxtKWlEW = 31 | 
Const shortSPVIEW =32 

Const shcrtTVNOW = 35 | 

Const shortrVFAV - 36 

Const shortMVFAV « 37 

Const short SPFAV =38 

Const actMOVIE « 40 

Const actSTORE » 50 

Const actDEPT » 52 ; 
Const: actWORE = 60 | 
Const actNOME - 65 | 
*for devalopweht only ! 
Const actKErS - 71 
Const act TABS ^ 72 

Sub Animate (^irecc As String, cardNo As integer) 

Din index As integer 
Din depth As Integer 

CloEvents 'do not interrupt another animation j 
depth « Cards (current) .level i 
Select Case direct ; 
Case -Back" 

If Cards (current) .parent > 0 Then 
CCopy sspCard (depth) » sepCont 
sspCont. Visible • True 

Zoom 10, sspCont, sspltemtCarda (current }. self ) 
DisplayCard (Carda (current) .parenr) 
sapCont .Visible • False | 
End If 
Case •Next" 

index = Cards (current) .selected | 
If index > 0 Then 

ccopy S3 pi tern (Index) , sspConc 

sspCont .Visible • True 



I 

i 
I 

(37) ; ^r^^8- 2 9 2 8 

71 72 

sspCor.t.BacXColor » sspCard(O) .BackColor 

Zoom 10, sspCont, sspCard (depth) 

DlsplayCard cardWo 

sspCont -Visible - False 
End I£ i 
Case -Select" | 
index « Cards (Current) .selected j 
It index > 0 Then I- 

CCopy sspitemt index) . sepCont ; 

sspcont -Visible = True i 

sspCcnt .aackcolor ■ sspCardtO) .BackColor 

sizcACcncrol ESpCaxdtO)* 0. 500. 0. 500 'site of whole forrn 
Zoom 10, 3SpConc. sspCATdlO) 
Eind If 
Bid Select 
Bnd Sub 

Sub BlinVStart (C A» Control, vis) 1 

Set BlinJeControl - C ! 
BlinJcControl .Vioible « vis 
tmrBlink.&nAblad s TruO 
End Sub 

Sub BlinlcStop (vis) 

tmrBlinle, Enabled - Felsa 

If BlinJeControl Is Nothing Then 

Else I 
aiinJcControl. Visible * vis = 
End If ! 
Set BlinKControl « Nothing 
End Sub I 

Sub ButtonAction () 

Din button As Integer 
Dim cardKo As Integer 
Dim «iB9 A3 Strin? 

button • Cards (current ). selected *itcni nunb«r of s«lected button on parent card 
cardNo a Cards (current* . it«in(button I 'Card nuinbcr of selected button 
It button < 1 Than Ebtit Sub I 

Select Can© Cards (cardNo) .actionCcd« 

Case actKONE ; 
Case actNEXT 

Xniinace "Next", Cards (current ). Iten(button) . 
Case actPOMXIN ! 
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currCtamain e Val (Cards (cardNo) .actionDaca} 
SetStatus CardstcardNo) .naree, greyCOLOR 
Animate •Nexf. Carda (current 1 . icentbutconJ 
Case ectMORE 



;^linatc "Nsxc, Cards (current ). it€m( button) | 
Case acccoMiNC ! 
T V 'cnt^n 5> * o^<D:x v.-^ -;u*'r r \ 

Animate "Select*, 0 j 
sanMFllter = False 
S«t views icurr Domain) - frmComing 
retumCgde » SHOWVTEW 
He. Hide 
Caae actNOW 

currView(currDoniainI • "TV 6:30pre : ' ^^{^f^\z:itlii^UO 



Animate •Select", 0 
sainerilter ~ Falso 
sane View = True 

Set views (cur r Domain) • listFrTn(curr Domain) 
rccumCode - SHOWVIEW 
Me. Hide 
Caae act LATER 

•currently non-functional 

'Animate •select". 0 

•sameFilter = False 

'Set views (currDoma in) ^ frmPriday 

returnCode = SHOWVIEW 

Ke.Kide 
Case actWECR 

^7 Y - -f CO T V ;^ y V A - ;^ ^fi t 

Animate "Select", 0 

sanveFilter = False 

Set views (cur r Domain) - frroWkday 

recurnCode « SHOWVIEW 

Me. Hide 
Case actWKEND 

'currently non-functional 
'Animate "Select", 0 
•sameFilter = False 
'Set views (cur rOomain) - frriW)cend 
returnCode - SHOWVIEW 
>fe.Hid« 
Case ectSCHED 

'currently non-lunctional 

•Animate "Select", 0 

'sameFilter = False 

"Set views tcurrDoma in) = frmSched 

returnCode = SHOWVIZW 

He. Hide 



(currently sair.e as accNEXT) 
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case actALPHASHOP 
Animate "Splocf, 0 

SctScaLus "Shopping, * 4 Cards (cardNo) .name , greyCOLOR 
mng - Cards (cardNo) .actionData 
fieclnfo msg, YELLOW 
waic frrnAlpha 

r£ returnCode <> BACK And userString <> Then 
saneFilter - PalsA 
filtor«{currDomain) - •item* 
Set views ( cur rDomain) « listFnn(carrDomain) 
retumCod* - SHOWVIEW 
Me.Hid« 
End If 
Cose accALPHATV 

AnlJtiat« "Select'. 0 

SetStatufl •TV, ' Cards (cardNo ) .nwne, greyCOLQR 
retumCode = PICK 
He . Hld« 
Case acCALFHAHOV 

c namtr S J: a ^ 7 y :^^r ^^5: v » ^ < nt* 

'Anlmace 'Select', 0 
Case actFIIiTER 

T V JL .J5r UV^ 7<A^Sf^^i> 

f liters (ciiriDomain) = Cards (cardNo ) .act ionData 
currFilcer(currDomain) = Cards (cardNo( . in Eotsxt 
sameFilter « False 
sar^eView e True 
returnCode « SKOWIEW 
Me. Hide 
CacQ actMOVIE 

Animate -Select", 0 
If current > lioraeCARD Then 

cur rView(curr Domain I = Cards (cardHo* .info text 
viewFilter » Cards tcardKo) . act ionData 
sameView = False 
sameFilter = False 

Else 

currFilter (currDomaia) « " & Cards IcardNo) . infocext 
f ilters (carrDoiaainJ - Cards tear dNo) .act ionDat a 
sameView - True ; 
sonveFtlter - False | 

End If ! 

Set views (currDcnain) 

returnCode » SHOWVIEW 

Ke.Hide 
Case actSTORE 



1 



I i s t Fnr I curr Doma i n J 
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Animate 'Seleef . fl 
Setlnfo 'Choose a store!'. TyRQOOISE 
S«tStatUS 'Shopping'. greyCOLOR 
saneFilter = False 
f il ters (cjrrDomain) » "score" 
S€C views icurrDorna in) - 1 istFrmf cur r Domain) 
rccurnCooe ■ SHOWIEW 
Me .HiUe 
Case ectDEPT 

Animate 'Select', 0 

Secstacus 'ShODPlns, • & Card* {car(iNo) . infotext . grcyCOtOR 
eameFilcer = False 
fiU«rs{currDoniainl = 'depf 
userString " Cards (cardNo) .name 
Set vi«ws(currEorBaln) = listrnn(currDofmaln) 
returiTCode = SHOWVIEW 
Me* Hide 

Case shortTWIEW _ 

Anijnat* 'S«l«ct". 0 
currDoraIn - TV 

If views (currDomain) Is Nothing. Then 

Sot vi«ws{currI>ocnaint - CnnComing 
End If 

safnaFilt«r » Tru« 
ratumCode = SHOWVTEW 
Me.Hid« 
Cas« shortMWIEW 

err ^Z.-tr-®U::^ h«:?rT 
Animare 'Select', 0 
currDomain = MOVIE 
If views (currDomaia) Is Nothing Then 

Set views (carr Domain) » liatFrm (currDoraain) 
End If 

sameFllcer « True 
returnCode = SHOVATIEW 
Me. Hide 
Case fihortSPVIEW 

Aniirote "Select', 0 
currDomain " SHOP 
If views (currDoirva in) la Nothing Then 

Set views (currDomain) " IistFrTO<currDon»ain> 
End If 

saftieFilter - True 
returnCode SHOWVIEW 

Ke.Kidi> i 
Casie shorcTVNOW _ ^ j 

currFll cert currDomain) - 'All Catecories" 

currView( currDomain) » 'TV <:30pn : ' 'obviously, this would be the current 

me 

Animate -Select", 0 
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currDGmain « TV • | 
EilcerslcvirrDonain) • ■" 
caiTieFilter » False 
satneVif?w • True 

Set views (currDomain) = listFrmtcur rDomain) 
rctumCod« « SHOWVIEVU 
Me. Hide 
Case ftCtKEYS 

SfetKay* Card«(cardNo),actionData 
SotSt»tu» Carda (cardNo) .infotext, itemCOLOR 
current « honeCARD 
DiflplayCeurd current 
Case actTABS 

ToggleTabs 
Case Else 

MsgBOK "Bafl action code for card ' & Cards ( c ardNo ); name 
Stop 

End i 
Hnd Select 
£nd Sub 

Sub ChangeSel (direct Aa String) 
Dim n As Integer 

Dim last Xs Integer. Sel As Xntecrer 
n = Cards (current) .Nit ems 
last ■ Cards (current) .selected 
If last o 0 Then Exit Sub 



If direct » • Right" Then 

If last - n Then 
Sel • I 

Else 

Sel s last + 1 
End ir 

Elself direct = "Leff Then 

If last = 1 Then 
Sel = n 

Els« 

Sel = last - 1 
End If 

Elaelf direct - 'Up- Then 

rf last > KAXCOLS Then 
Sel » last - MAXCOLS 

Else 

Sel = last 
End If 

Elseif direct ■ •Down- Then 
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IC last n - MAJCCOLS Thon 
Sal = lact * KAXC0L5 

£1&8 

Sel = last 
End If 
Else 

MsgBox 'Bad Direccion* 
End 
End If 

Cardf (currant) .««l«c tod • S«l 

CJpdateSel 
End Sub 

Sub DispIayCard (index I 

Dim depth h3 Intecrer 'nuniber of visible cards, 

Dim 1 A3 integer 'counter 

Dim ancestor As Integer 'card niirabers : 

current » index 

paront - Cards (current | .parent 

depth • Cards (current! . level i 

For i » MWCCARD To depth ^ 1 Step -1 

sspTltlell) .Visible = raise 

sspCard(i) .Visible = False 
Next i ; 

^ y-^ j^H L < K'^'^m^mx;^ ^itzt I 

ancestor • current | 
For i ■ depth - 1 To 1 Step -1 

ancestor » Cards (ancestor) -parent ! 

sspTicle(l) .Caption « Cards (ancestor ). name 

sspCard(i) -Visible = True 

espTitle(il .Visible « True 
Next i 

SSpTitle(depthJ .Caption = Cards (current ) -name | 
BBpCard( depth) .Visible = True j 
fispTitle (depth) .Visible = True j 

! 

Displayltema 
End Sub 

Sub Displayltejrs () 

Dim Area AS SSPanel 
Dim i As Integer 

Dim Ox. Dy, X, Y. w, h ; 
Dim NItems As Integer | 
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NitOTifi ■ Cards t current ) ,NIcgm« 
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Set Area = sspCardtCards (current ). le^al >' this ic a pointer . n6t a copy 

Vy. - Area. Width • .9 / MAXCOLS 
Z»y « Area. Height * .9 / MAXKOWS 

w = DX • j • 

If w > 30 Thei w - '30 

h = Dy • .9 i 
If h > 20 Ther. h - 20 j 

sspBlinlcBG, Visible = False ! 
sspBlinkBG.XOrder C ffa^xtoTKbC 

ror i « 1 To NItema 
BspItenKi) .Width = w 
aspltem(i) .Height « h 

BBpItcm(i) .Caption ■ Cards (CardB (current) . itewfi )) .name ■ 
It Carda (Corda (current! .itendM .actionC ode « actNQKB Then ' 

espltecati) .BackColor - yreyCOLOR ! 
Else I 

espltcmd) .BackColor « itcmCOLOR j 
End If 

X = Area. Left * . 05 * Area. Width + Mti - 1) Mod MAJCCOLS) ♦ -5) • X)x 
Y = Area. Top * .05 * Area. Height ♦ llntiU - l» / MAXCOLS) * .5) • Dy 
Conterltem espIteinU)^ x, Y 
sspltemd) .ZOcder 0 
sspltem(i) .Visible ■ True 
Next i 

CPlace 2. sspBlinJcBG, sspXtemll) i 

For 1 = Nlcems ♦ 1 To KAXITEM 

sspltem{i) .Visible - False 
Next i 
UpdateSel 
End Sub 

Sub Fortn^Act ivate () 

BSpCont .Visible - False 
Select Case returnCoda 

Cnse BACK I 
It current <■ homeCARD Then curicnt « lastCard | 
SecStatus'3tlRltffi^l.TS?.=i^tiS/i(*^--/< y K tt^fflf i'^'^V^^OLOR 
DicplayCard c«rrent j 
UpdaceSel ' 

Case SHORTCUT 

current - homaCAW 

Setstatus'^ei%{5m UT3iR?: r & i tzit=^ t/Y^^mr^ arevCOLOR 
Di»ployCard current 
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UpdatcSG 1 
Case FILTER 

SocStatus"5<«i&iiE;fItTi5$Kr**fe(±*->'<^y K?:feEWrS . greyC0U)8 
If current < homeCARD Then 
DisployCard current 

Else 

lastcard = current 

select Case currOomain | 
Case TV j 

DifiplayCard filterCARD 
Cas« MOVIE 

DieplayCard mfilterCABD 
Case SHOP 

DisplayCard current 
End Select 
end It 
updatesel 
cage COKING 

Cards (current) .selected « 2 
■ameFilter = False 

Set views {curt Domain I ■= frnCominy 
returncode - SKOWVIEW 
Me . Hide 
End Select 
End Sub 

Sub Form.KeyDown tKeyCode as integer, shift As Inteoer) 
Dim index As Integer 
Din n As Integer 

Select Case KeyCode 
Case B_BACK 

Animate "Back" , 0 
Case B_HELP 

InvokeHelp 
Case B_PREVTEW 

UFserStation « 1 

userStarc = fakeTime 

retumCode » TQTV 

MG.Hide 
Case B.SELECT 

But tonAction 
Case 8_RIGHT 

ChangeSel C Right -) 
Case B„LEFT 

ChangeSel CUeff) 
Case B_UP 

Changesel CUD'*) 
Case B_DOWK 

Changesel ('Down") 
Case B.PAGEUP 
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Case B.PAGEDOWK 
case B_l 

If Cards {current I .NIt«rns > 0 Then 
Cards icurrent I .selected = I 
UpddCcSel 
BucconAccion 

End I£ 
Case B.2 

rf Cards (current) .NT temfl > 1 Then 
CardB (current) .selected - 2 
UpddteSel 
ButtoiiAction 
End If 
Case B_3 

rf Cards (current) .NI terns > 2 Then 
Cards (current) .Belected = 3 
updacesel 
BattonAction 
End If 
Case B_4 

If Cards (current I .Hltema > 3 Th«n 
Carda(currerit) .selected « 4. 
. UpdateSel 
ButtorAction 
End If 
Case B_5 

If Cards ( current ) .NI terns > 4 Then 
Cards (current) . selected = 5 
UpdateSel 
ButtonAction 

End If 
Case B_5 

If Cards ( current ) .Nltettva > 5 Then 
Cards (current I .selected = 6 
UpdateSel 
ButtonAction 

End If 
Cane B_7 

If Cards ( current) .Nit ems > 6 Then 
Cards (current) -selected = 7 
UpdateSel 
SuttonActi-on 

End I£ 
Case B_8 

If Cards (current) .NT tens > 7 Then 
Cards (current) -selected ■ 8 
UpdateSel 
ButtonAction 
End If 
Case B_9 

If Cards (current) .Ni tens > 8 Then 
Cards (current) .selected = 3 
UpdateSel 
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ButtonAcCion 

End If 
Case B^O 

current ■ horaeCARD 

DisplayCard current 
Case Asc{"Q') 

End i 
End Select j 
End 5ub j 

Sub Fonn_Load { ) ; 

s3pC«rd(0) .BockColor - backgroundCOLOR 
sspTitle(O) .BackColor - bockgroundCOLOR 
sspItem(O) .BacXColor « itemCOWR 
sspBllnkBG.BackColor « hlghlightCOLOR 
sspltem(0)..FontSl2e » medlumFONT 

sspcard(O) .Fontslze « medlumFONT ; 
5SpTitle(0) -FontSiie ■ mediuinrONT i 
Me.BackColor « formCOLOR 

SizeXPorm Me. dispTop. dispHeight, dispLeft, diapWidch 
Me. Scale {0, 0>-(100. 100) 

^ D - y ^ ; V - > 3 - H * «^ 5^ b 

returnCode " BACK 

p - p ^ ^ X CO/ :^ i-^Sf^'C^^j^ tr 
PopulateCards 

LoadGrephics j 

DisplayCard homcCARD 
End Sub j 



Sub LoadGraphica () 
Dim i As Intt^er 
Dim tabHeight 



'counter 



For i = 1 To MAXITEM 

Load sspltemd) 
Next i 

I 

cspCard(O) .Top = fi6p3t«m( 0 ). Height 

9spCard(0) -Height - ICO - CARDSHIFT - e5pCard( 0} .Top ; 
sspCard{0) .Left • 3 * CARDSHIFT 
sspCard (01 .Width - ICO - 4 * CARDSHIFT 
' shape prototype tab 
sapTitle(O) .AutoSize « False 

aspTitlelO) .Width = »8pCard (0) .Width f NAXTITLB ♦ CARDSHIFT 

For i = 1 TO MAXCARD 
Load sspCard(i) 

sspcard(i) .Height = sspCardU - X) .Heioht - CARDSHIFT 
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s«pCard(iJ .Top = fispCardd - 1) .Top * CARDSHIFT 
aspCarddl .ZOrder 
Load espTitleti) 

sspTitle{i» .Top = sspCard(i) .Top - t;i;pTitle(0 1 .H«i9hc * 2 
Select Case (i Mod MAXTITLE) 

Case 1 

sspTitlefiJ .Letc = sspCardtiK Lef t 
Cdse 2 

sspTiCletl) .Left « sspCard(i) .LeCt + sepCardli) .width / 2 
5spTitle(i> .width / 2 
Case 0 

sspTlcl«{i) .Left a sspCa.rd(i) .L«ft ♦ sspCardIi) .Width - s 
End Select 
sspTicl«(i> .ZOrdar 
Next i 
End Sub 

Sub PopuJlatcCarda () 

Dim last As Integer, parent As Integer 

Dim selected As lotegsr 

Dim index As Integer . ItemNo As Integer 

Dim level, title, text, action 

Open CARCriLE For Input Ai »1 

index 0 

Cards I index) .nane - 'roof 
Cards (index) . level • 0 
Carastindax) .Nltem* * 0 
While Not EOr(ll 

last = index 

Indov s index 1 

Input #1, l«v«l, sttlected. title, text, action 
Cards (index) . level « level 
Cards I index) .selected = selected 
Cards t index) .nane - title 
Cards t index) .infotext = text 
cards (Index) .act 1 encode = action 
II action > actKEXT Then 
Input #1, action 

Cards! index) .act ionData • action 
End If 
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Cards ( index) .Nltem* - 0 ^^ISLt'WJiit 

If Card9(indexKlev«I « Cards (last) . level ♦ a Then ! 

mom \ 

parent =■ last 
Elself Cards (Index) .level <= Carls ( last) .l«vel Then 

Do While (Cards f index) . levtil < Cards (last ) aevel ) ; 

last = Cards (last ) .parent 
Loop j 
par ant » Cards [last ) .parent 

Else ^^^I'A^'^is^ntv 7^^:^ h^r-r^i'iilHijit^ 

MsgBox *Bad level in text flic.' 
Stop 
End 
End If 

Caxd£( index) .parent ■ parent 

IceinNo « Cards (parent) .MI tens 4 1 
Cards (p&rent) .Kit ems = itemNo 

Cards (parent 1 . Ltftvt(iteinNo) 3 index ; 
Cards (index) .sale = ItornNo I 
Wend 

Card£(0) .Nlteras « 1 
Close fl 
End Sub 

Sub tmrBlinJv_Tinier () 

BlinlcControl -Visible » Mot BllnJcc on trol .Visible 
End Sub 



Sub ToggleTftbs ( ) 

Dim i AS Integer 

Static offset 

If offset =3.5 Then 

offset = 2 
Else 

offset = 3.5 
End If 

For i = 1 To 9 

sspTitled) .Top = EspCArd( i ) .Top - sspTitle (0 ) .Height 
Next i 
End Sub 

Sub UpddteScI < ) 

Dim i As Integer 
Dim X, y 
Dim s AS S5 Panel 
Dim text AS String 
Dim color 



+ offset 



BlinkStop False B^ttt'Tfif 
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i = Cards (current) .selected 

If i > 0 Then 

S«t S - B8pltcm(i) Stt't?^>tzWt^^^'>^ 

X «. S,Left ♦ S. Width / 2 

Y « S.Top * S.HeighL / 2 

•put blinker behind button 

Centerlcein sspBlinkBG, x, Y 

'resume blinking 

BlinXStart sspBIinkBC, True | 
End If I 
text m Cards (Cards (current) ,i ten (Cards (current) -selected)) .info text 
color * sspl ten I Cards (current) .selected) .BftcJcCol or 
Setlnfo text, color j 
End Sub ! 



[0 0 3 6] 



Sub Zoom {n As Integer. C As Control, I>est As Control) 

Dim 1 As integer, j As integer 
Dim dl, dw, dr. dh 

dl = (Dest.Left - C.Left) / n ! 
dvf = (Dest. Width - C. Width) / n j 
dt = {Dast.Top * C.Top) / n ! 
dh • (Desk. Height - C, Height} / n 
C-ZOrder 

C. Auto Size « Fal«e 
For i » 1 TO n 

C.Move C.Left + dl. C.Top * dt, C.Widch + dw, c. Height + dh 
C. Refresh 

Wejtt i 
E;nd Sub 



SELECT? ^--in-K — ... ! 
Option Explicit 

Dim OB As databava 'the full database , 



Din list (1000) As String 'the list of selection strings 
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Dim l»a£(1000) As Integer DthJR@**'J-7<?)a^iE. -tnW^ia 
Dim lietEnd Ac Integer V;^ h (*3©ai*<OS3Ri^& 
Dim currPrefix As String ^*TCaiilXfc:fc^ 

Dim initialList As Integer Z0'}7.V ti^mnCtC^1Si(DX^^t^^^'^'i£-^^' 
Dial BlinkControl Aa Control j[SSty!i«r 5:^ T'S/ r, 5^ htt?:£U(iM^n-C V^fXl^ 
Dim itemSelected As Integer 1 apC)NAJCD[ SPLAY ST 
Dim locSelected As Integer 1 ^?>IlAXCOCiT 
Dim rowOftset 2 OODa^f 6«&/J>?nfcmQ© ^ ^ ^T'S^SS 

I 

Dim allData As snapshot 
Dim filtftrData Ae snapshot 

Dim marker (100) As String ^}{SXl\S?Um^<Oy^J ^ 
Dim locStartaOO) As Integer D^T— -J^ — (^)ffiil&OrIteil>f >T- V ^ 

•display paramet«r« 

Const MAXDISPIAY - 6 O-X-^ -jf /^Kfe^RBO© 
Din MAXITEH As Integer hP*3©IS§<0& I 

Dim MAXLOC AS Integer pr-<5r^ti^v'3>©ffi i 
DiiE whichrlcenKMAXDlSPLAY) A9 Integer irCrltaa/J^IRaiOS^C* i^P 
Const GAP « 10 •space around lists i 
Const EXTRA = 70 •room for longer programs 
const reducedEJCTKA = 20 <?Sf/jN$nfca'i^rtOft»O#ilfi(0fc»OA'"A \ 
Const T = 50 
Const K « 1000 • 2 * T 
Const locL ^ 30 m'h^hit^>7.y 
Const locw « 100 

Const dispL « locW * 2 • locL ^rjsVZh j 
Const dispW = 1000 - dispL - locL j 



Sub Blinks tart (C As Control, vie) 

Set BlinkControl = C 

filinkControl. visible « vli 

tinrBlinlt. Enabled - True 
End Sub 

Sub Blinks top (vis) 

tmrBl ink. Enabled = False 

If BlinkControl Is Nothing Then 'do nothing 
Else 

BlinkControl. Visible - True 
End IE 

Set BlinkControl - Nothing 
End Sub 

Sab ChangeLoc (direct As String) 
D<r-^(C J: 0 '^-i' ^«<> < * ^ < '^^'^ 
Select Case direct 
Case -Up' 

If locselected > 1 Then 

locSelected ■ locSelected - 1 
RedoDieplay 
End IE 
Case. "Down" 
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If locSelectad < 

RedoDispl«y 
End If 
EncJ Select 
End Sub 



Sub Ch^ngeSal (dicacc As String) 

Select Case direct 
Case •UP' 

If itemSelected > 1 Th«n 



100 



IteznSelected 
selector. Tod 
ricent(O) «Top 
Seticeminfo 
ElseZ£ locSelected > 1 Then 

itenSelecced - KAXDISPIAY 
locSelected « locSelacted. - 1 
RedoOiffpiay 

End If 
C4Btt 'Down* 

if it«inSelccted < KAXDISPLATf Then 



ItemSeXacted - 1 
ltemaox(it«mS«l»cted} .Top - GAP 
loc&tor.Top 4- rowOffs«t * (itenSelect«<l - 1} 



If flocSelected 

lt*itS«l«cted 

colector.Top 

rltem(O) .Top 

Setltemlnfc 
End If 

Elfielf locSeleee»d < MAXIjOC Ttien 

ItanSelected « 1 
locSelected • locS«l»ctod ♦ 
RedoOisplay 
Ehd If 
End Sel«ct 
End Sub 



1) • WAXDISPLAY ♦ itemSelected < MAXITEU Than 

iteinSalect«d * 1 j 
1 ItemBoxdtemSelBctedJ .Top 
locator. Top •*■ rowOffftet 



GAP I 
( items* I tc ted - 1) 



Sub PoSelect () 

Dim index As Inte^ar \ 



Dim count As Inteyer 
Dim i As Integer 
Dim nvxtChac As Ctring 
Dim looVlng Aa Xnt«99r 
Dim title As String 



' boolean 



ind€x « locStairt(locSelect»d) ♦ iteriSelected - 1 Slf^d Hfe^S^^V ^ ^ 
If leaf ( Index » Then ; 
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title « remov«Asrper«md(li»c(ind»x) ) 

filtcrbata.FindFirct •SelecCTicl* - ^ titU k | 

Xi filt«rD«t*.NoM«tch Then j 

Do 'prompt for dit£«r«nt titla until £ound | 

Ji : z nitBz. s a , ' c nA»r=-^ 's:- .-x a i*^ 'J ^ K Si 

e lnputBoJc(titl» Si " not found. Eiit«r new title-. titlr) 
filterData.FindFirst •SelectTitle « 4 title fc 
Loop Until Not filterData.MoMAtch 
End If 

userStriny « filterDatai'FullTitlcM , 
Set viewBlTVJ = frmWMte 

sameFllter - False j 
retumCode « SHOWVIEW 
Me. Hide 

Else 

lte»aox(lceTOSelecced).Bac)cColor • greycoLOR 
Seclnfo -LOalins data, please wait. . greyCOLOR 
DoEvcnts 

i a Len (list < index) ) 
currPrefix = *• 
If initialMat Then 

currPrefix - listiindexl 

Else 



It i V 2 Then currPrafix - Le(t U let (index) . i - 2) • 
currPrefix - currPrefix 4 Right (liat (Index) , 1) 



End If 

ScCStacua 'TV Titlaa starting with • k currPrefix, greyCOLOR 
'construct nev list 
It initiaUiat Then 

If indax = 1 Then 

initialLiBt » Falae 

filterData.rilter a -SelectTitle < 'A'" | 
currPrefix = | 
else I 

lUtEnd ^ 0 

ror i ■ 1 To Len (currPrefix) 

'strip OAit the letters (ionore comtvas) to make a new List 
tf MidlcurrPreflx. i. 1) >-= "A" Then 
lietEnd - liatEnd ♦ 1 

list (liatfind) - "4" 4 Mid ( cur rPr« fix, i, 1) 
leaf ti) • False 
End Jt 
Next i 

End If ! 
filterData. Filter - "SelectTitle like •* 4 currPrefix 4 
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End If 



1» 



If Wot inlcialList Then 
fS*t T-'- * T> *i" U I ^ 0 X b 4 ^» ■ jA 1 4 6> * t 

Set filccrJaca » f iUerData .Cr«aceSna?shoL 1 1 

f i IttfrDacA.MovtfFirat 

listEiiU • 0 

K&r i - AscC *) To Ascl'ZM 'apace, punctuation, and Xetter« 

counc = 0: loolcLng * True 
While Nbt f ilterData .EO? And loofcLng 

nextChar « Hiai£lIt€rDataCSei«ctTitle") , ten(curxPrefix) 



♦ 1. 



It nextChar - ChrdJ Or nextChar = LCase (Chr( I) ) Then 
couDl " count « 1 
f 1 1 1 « rD« t a . Hov«Me jct 

Else 

looking - r*l«« 
End I£ 

Wend 

Select Caae couit ; 

CAM 0 'j;iMcttfiait4v^ 

Case 1 iJ-7X> f ij— fcrJ< S 

lilterDaca.HovePrevious 

listEnd = liscEnd ♦ 1 | 

liatUistEndJ • f ixAipersandi I f i lt*rDat«<"S«leccrlCl»' ) 1 1 

leaCtlistEod) = True 

f ile*rl>«.ca .NAV«Vewt 
Ctico El6« y >!J— 7X>>';-€t3<5 

filcerD4ta.J(ov« Pr* viou s 

liscLnd = listEnd + 1 

llatdlitEnd) 3 currPr«fU i ( Chr(i) iFf^i CccharC7 >5^— >fe5l < 



l»a£(li»tEndi = r*tlmm | 

filterData .Hovellext j 
End e9l»ec ! 

If filter Data. RacordCount HAXDISPLAY Tbon j 

listEnd * 0 
filtacData.HovcFiret 
While Not fllterDatB.£»F 
listEnd - listEnd ♦ I 

ILfttdistEnd) = eixArpersand( (£iltorDat&( 'SelectTitie't 1 ) 
laatdiatEnd) a Truo j 
f LlterData .MOvftNext | 
Wend ! 
End Z£ ' 
End If 
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•display newly created litz 

iCeinBoxliteinSelected).BackColor • itenCOLOR ^ U < fM$^lfc'; 
initlalLifit c Fal«t 
If listEnd > 1 Then 
NewList 

locSelected = 1 I 
itemseiected = 1 | 
Doselecc ; 
End It i 
End If 
End Sub 

Sub Porra_Activ«te (> 
NewList 

End Sub j 

Sub FomU-KcyDown (KcyCode As Integer, Shift As Integer) j 
S«lecc Casa KeyCode i 
Case Asc(*Q*) ' 

End 
Cd(# B BACK 

aTv;^KD+IC«S?*SOS«tt*'^l''*'''*t>*^"^K*'"^ * particular choice in 

retumCod© = BACK 
Ma. Hide 

Case B-KELP i 

InvokeHelp | 
Case S.PREVIEH ! 
Case B_SELECT 

OoSelect 
Case B„UP 

ChangeSol fUt^") 
Case B.DOWN 

ChangeSel CDo^m") 
Cose B_R1GHT 
Case B_LEFT 
Case B_PAGEUP 

ChangaLoc t"Up"> i 
Case B_PAGEIX3WU j 

CbangeLoc ( "Down" ) ! 
Case B^riLTCR | 
Caca B.O 

reCurnCoda = SHORTCUT 

He.Hida 
End Select 
End Sub 

I 

Sub Form_U>ad (j I 
Dim i As Integer i;^>^ 
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Dim ItemRCKsm 

icemBoxtOI .FontSii* - largeFONT 
riflhtAxrowlO) . FontSirft » largoFONT 
iltem(0l .BacTcColor = itemCOLOR 
selector. FillColor - highliohtCOLOR 

displaybtst . FiLlColor ■ backgroundCOLOR \ 
locator .FiliColor - bacXgroundcoLOR I 
itemBoxlO) .BaOcColor « iteioCOLOR ! 
riQhtArrow(0| .BacJcColor = iteinCOLOR ! 
fihpSIot.BorderColor • slocCOLOR 

b r :r :/ X h 5 u - > u s < 

SizeATonn Me. DlapTop, Dispaelght. DispLaft, Dispwidth 
»e. Scale (0, 0)-(1000, 1000) 

SizeAControl locator, T - GAP, H ♦ GAP. lOcL - GAP, locW ♦ 2 • GAP 
SiteAControl shpSlot. T. H, locL + reducedEXTKA, locW - 2 • reducedEITJLA 
SireAControl displayList. T - GAP, H + GAP, dispL, dlBpW 
locator .ZOrder I 
ahpsiot .20xd«r | 
rltcni(O) .ZOrder | 
i7«mnoom m H / KAXPZSPLAY ! 
SizeAControl item3ox(0), T * (.5 • GAP). itemRoom - GAP, dlspL EXTRA, diepW - 
3 * EXTRA 

SizeAControl leftArrow (0) , T + <.5 * GAP), itemRoom - GAP, dispL, i EXTRA 
SizeAControl rightArrow(O) , T + (.5 • GAP), itemRoom - GAP, dlipl* ♦ dispW - 
EXTRA, EXTRA 

SizoAControl s«l*ctor, T, itoniRooio ♦ GAP, dtapL, dispW 
selector -ZOrder 
For i X 1 To MAXDI SPLAY 
Load icenfiox(i) 

itemBox(ii -Visible e FalcG ! 
itemBox( t) .Top a itenBox(O) .Top ♦ (i - 1) « itemRoom j 
Load ricrhtArrowfi) 
righcArrowd) .Top * iteinBajc( iJ .Top 
Next i 
End Sub 

Sub LoadData ( ] 

Dim refSnap As snapshot 

Const MAXTOGETHER =» MAKDISPLAY t> t r^i^IS :?tl^^$n5:*:*& 
Dim together 

listEnd « 0 j 

Set DB « OpenDstobase (TVTitles) 

Sot allData s 09 .CreateSnapshot ( 'Title* ' ) 

Set retSnap = DB .CreateSnapshot I 'Re£«r«nc«" ) 

lef Snap.MoveFirst \ 
together » HAXTOGETHER Sfffc^^^UdJ (:0ie:'SS:l4*irt* 

Vhile Not reCsnap-EOF j 
Select Case ref Snapt 'CJumber' ) 

j 
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Case 0 
Cose 1 

listEnd = listEnd -t- 1 | 
ailData.FirwlFirct "SelcctTitle like • t r»f Snap! • Letter; J & 
1 iscOistEnd) « allDac.a('S«l«ctTitl«"I | 
leamistEnd) = True | 
ccgecher ~ MAXTOGETHER 
Case Else 

If zefSnapl •Letter" I « TT.en 

listEnd » llstf^id * 1 

lisc(listEnd) • •Symbol or Nurtiber* 

together = KMCrOGCIHCH 

'note: Deselect rell«9 on zhi% entry b«ing the first list item 

£186 

l£ cogether WAXTOGETHER Ilien 
listEnd • listEnd + 1 
Ust(li«tEnd) = refSnapC Cotter" I 
together • 1 

Elae 

list (listEnd) - li5t(^i•tEnd^ k ' t r ef Snap ('Letter • ) 
together - together ♦ 1 
Bid If 
End U 

l«*f (listEnd) » FalsB 
End Select 
re£Sn«p.MoveNext 

Wend 

Set filterData - allData | 
initialLiftt « True j 

E:id Sub | 

Sab NewLlsc (1 

: itwSelecledti Ua^Of5liPC^I3SB<t?nJl(^ntitte»CEV>/)*? 
Dim i Integer t?»5vy 

Dim section As Integrer D^— — n^-J/a >©?Stt£St^^ 
Dim msg As String 

'clear captions I 
For i • 1 To MAXDISPLXY j 
ic«mBoxU» .Caption - I 

Niixt i 

For i = 1 To MAXITEM 

Unload rltamti) 
Ncxr I 

KAXITEM • listEnd U KI>4^£t)ia B^OjEIr 

HAXirEMtcM^T e> ? n t fa aWKi: t^-f n - K r 4 
rcwOffset = [H - rItenlOt .Height) / KAXITEM 

IE rowcffset. > rirem(OJ -Height ♦ GAP Then rowOftset « rIten(DJ '.Height ♦ GXP 
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rlt«mt0> .Viftibl« o Fal»e 
rlc«m(0) .Top 9 T 

rlcem(O) .Left = locL + reducecEXTRA ; 
rltem(O) .Width » locW - 2 • reducedEXTRA j 
rItemtO) .BackColor = itenCOLOR | 
f ilterCaca.MoveFirst ; 

section = 0 dT— J' — Dr-'> 3 V'^SSl 
For i = 1 To KAXITEM 
La&d rltsnU) 

rlten»(i) .Top » T ♦ (i - 1) * rowOffset 
If ((i - 1) Mod MAXDISPIAY) - 0 Then 

section - section ♦ 1 j 
locStartt section) « i j 
End If 

If Not leaf(i) Then 

rlteoi(i) .Width « rltemCl) .Width ♦ reducedEXTRA 

End If 

rltem(i) .ZOrder 
rltem<i) .Visible « True 
Next i 

KAXLOC o section 

locSt»r=(eoction * 1) = HAXITEM ♦ 1 

rltein(O) .Left » locL - GAP 
rltcmtO) .Width • locW + 2 • GAP 

icemselected = 1 
locselecced = 1 

ritem(O) .BackColor - highl ightCOtOR 

RedoOi«pl«y | 

End Sub 

Sub RedoDicplay 0 - . _ 

n >r - - 1 1 ^ O Jt? ->= •> 3 > *r ^ 1 1 W ^ 7ft ^ ;^ tr. B ^ tft * h 

rim last As Integer f X ru^frtOfttitDJ^^OTXt 
Dim i As Integer 

Dim index As Integer 9;^ ht^COJ^Qc^X Vx-y 

index « locstart (locSelectedl | 
For i s I To MAXDISPLAY j 
If index > MAXITEM Then 

iteinBox(i) .caption - " 
itemBoxti) .Visible s Pals* 
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righULrrow(i) -Visible " Fals^ 
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£ls« . 
iteniBoxd) .Caption e list(indfljc) ! 
If Not leaflindexl Then ! 

richtArrow(i» .Visible = Tiu* 
itemaoxli) Caption - t3Ca6c( li«t ( indax) I 

Else 

riahtArrowti) .Visible = False 
EnO If 

ItejaBcxti). Visible = Tru« 

last = i SL^O^mmHta^^ • 
Index a index * 1 j 
End If I 
Next i j 

r ^ V ^ ivsif?^ n 2» w t 5 ^ 

If itemSelected > last Then 

item3el«cted = lasc 
End If 

displayList. Height - H ♦ 2 * GAP - (H / EATOISPLXY * iXAXDISPLAY - lost)) 
selector. TOP • itdnBoxUtemSelected) .Top - CAP 
locator. Top - T + rowOffaet • (locStart (locSelected) - 1) \ 
locator. Heiffht - last * rowOffset * rltem(O) .Hciyht - rowOffaet 
rItem(0).Top • locator. Top + rowOffset • (itemSelocted - 1) ! 
rltoin{0) .Visible = True 
SatltemXnfo 
End Sub 

Function renoveAnpersand (oldText As string) Ks String 

Dim text As Strino 
Dim newText As Strino 
Dim 1 AS Integer 

text = oldTaxt 
newTcxt = 

While inStrltext. '&&') 
i a TnStr(text, •fcf) 
newText - newText k Left (text, il 
text - Right (text, t,en(text) - ti ♦ il) 

Wend 

removeAj^poraand - newText k text 
End Function 

Sub Setltemlnfo () 

Dim mscr As String 
Dim index As integer 
Dim F As snapshot 

If Me. Visible Then 



[0 0 3 7 ] 
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option E>cplicit 
Cojist GAP = 700 



Sub ForituActivate ( 1 
Dim ins9 As String 

Dim D9 AS database 
Dim Programs As table 
Dim etartTime 
Dim refSnap As snapshot 
Dim rnfDato 

Dim stesrtTS, finishTS, nowTS 



Set DB = OpcnDatabase(TVDB) 

Set refSnap « DB .CreaceSnapshot ( 'Reference- J 

ref Snap. FindF Irs t 'Name = 'Date'" 

refDate = DateValvie(re£Snap( 'Data' 1 I 

Set Programs » DB .Op«nTabl« ("Pro grams " ) 

Prograjns . Index » "ZD" 

Programs. ee«k userStation. uficrStart 

If Programs. MOMotch Then ! 

nowTS • DateDlffm*. refDate* fakeToday 4- falc«Tiin«) \ 3D 
Set refSnap - prograaia.Creat«Snapshot( ) 
refSnap.FindFirsC •Station - " & Str(userStaticn) 
refSnap.FindNext "FinishTS > • & Str(nowTS) 
rasg e 'You aar« watching * 

msg = msg U ChrdS) & Format (re£Snap{ •Title" > ) 
rnsg • mag i • on • 4 StationString (ref Snap (• Station* ) J 
msg - lasg b Chr(13) & Format (ref Snap (• Start •>.^h:nTO AM/PM-) 
m3g = msg fc • to " & Fonaat ( ref Snap ( Tiniah" ) . "hitrini flW/PM') 
Else i 

sCortTS « DaCeDif f ("n". refDate, Programs ( "Start" I ) \ 30 
finisIiTS B DateDiff Cn*. refDate, Programs { 'Finish") ) \ 30 
nowTS = DateDiff ("n", refDate » fakeToday ♦ faheTime) \ 30 

noMTsti 9 ^vp^ >f /^"Cl^l < ^ d tcRf 

If startTS <- nowTS And finishTS >• nowlS Then 
msg - 'You are watching 

Else 
End If 

msg » msg & Chr(l3) & Format (Programs ( ^Ti tie ■) ) | 

& • on " & stations t ring (Programs ( "Stat ion") ) 
& Chr(l3) & Format ( Programs ( "Start •> , "himm AM/PM*) 
S; ' to " t Format ( Programs ( "Finish" ) , 



•The VCR is set to record 



msg = msg 
msg = msg 
msg - msg 
End If 

textArea. Caption 
End Sub 



msg 
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Sub FontuKeyDown (KeyCode As Integer, Shift As lnteyer> 

Select Cafi* KeyCode \ 
Case S.BACX ! 
returnCode ■ LASTVTEM ' 

He. Hide 
Case B_0 

reCyrnCode » SHORTCUT 

Me. Hide : 

Cose Ascl'QM ' 
End : 
Case Else 

rcturnCode = BACK ; 
Me . Hido I 
End fie1*rc ' 
End Sub 

Sub Form.Load t ) 

text Area. Caption « *" 
tGXtArca.FontSize = largoFOMT 

SiicAForm Kc 0. ScrHeiffht. 0. ScrWidth ^ : , 

SizeAContTGl textArea, GAP, ScrHeight - 2 • GAP. GAP. ScrWidth - 2 • CAP 

End Sut> 



option Explicit 



Global Const CAHDftlX - 'ct\pctv\6h\CATAst.txt' 
Global Const WVD9 - -ci \petv\dbV plots. »db" 
Global Const SPDB - -c: \pctvVdb\5hopptng.mdb' 
Global Const TVDB « -c: \pctv\db\big.indb* 
Global COOit iVTitlas » -c: \pctv\db\ titl*» .»vdb' 
Const CATDB a -c: \pctv\db^c»tB.mdb" 
Dim typ«T*bl<i As tablo TV5''f"7IDs 
Dim catTable As tabl« T V U - I D S 
Dim statTable As table X7^->3>JDs 
Global fnkeToday Hft^^^'^>^?* 

Global faKeTiiT\e EiW^I^SSt . ^ ^ , ,^ > .v. -.mo^v-r 

Global diBplayMOde As String P C1>'T Vt' Rtt^* fe-fe -y h (7 T > h ^ / -v '7C0it-^ X 

GlwlSr niwuser Af? Integer ^rLV^i:?^, x^t^;^ h •>'^;u7^ 4^. & 

Globftl ScrWidch. ScrHeight 

Global DispTop, DispHaight. Dispt*£t. DiepWidth 7 L-/.^ Sfl"? 7 5-;^ £ 

Global Conet highlight COWS ^ tK8OB0rr i 
Global Const background COLOR - fcHBOFrFF -fXO- 
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Global Const it«raCOLOR ■ LHFFFFCO 
Global Const forwCOLOR « fcHFFOOOO 
Global Const whitcCOLOR • fcHSCOOOOOS 
Global Const greyCOLOR - fcHCOCOCO 
Global Con»c blackCOLOR = fcHCfc 
Global Const alotCOLOR - WH600OOOO5 
Global Contt bordecCOLOR » tHTTk 
Global Const divideCOLOR = tHrFFFfc 
Global ColordOl >lZillb^iltcU^\ 

Global Const small FONT ■ li.8 
Global Const mediumFOKT = 1ft 
Global const laroeFOsr a 24 

Global Const HOVIE e 0 
Global Const TV = 1 
Global Const SHOP a 2 

Global liBtfrmO) As rorni 
Globol TVlist As fl«w fnaLiat 
Global MOVlist Aa Ne^r frtoLiet 
Global skoPlist A» K«*» frrnList 



Global curxDonain As Integer 

Global filtaraOJ As String JS/f 00^7 >f A"?<0^xi;-X b 'J Vi^<DKi"J 
Global currFiltcrd) Ae String 7 H (^7-^7.^ ^ i 
Global currVi-wU) As String iSffi^l!<»^05^^^ <it^iS»^ ^ ^ 

Global vi€Wfi(3) As Form m^COfEtttt: Ji -tOffiyj >TV coming or TV schedule. 

Cor inst^nca) 

Global viewFilter As String BWattlttiWSfcWtl'^S^^tT-'— i'^-;^ 

Global userStrin<3 As String a-tfCJ: vTKIR^n^:^ > 'J V 
Global use rMsg i-Vrgr^T <&/;W>^>J« f -b- h 
Global uterstation a-f;: oTiSiR^Mfc^iiz^lS (X7^-i>3>) 
Global userScort a- Vtr i oT2^$tirc^B3 

Global aamePilt«r AS Integer * 'J 7 ;W5 T ^.^ttillLU 

Global eamcView Aa Integer ^Ur^ ;^7U>f 4-?> 0 aT'£*g3J«'fc4&^i±*P 

Global raCurnCode Ao Inteaer 
Global Const BACK - 0 

Global Const TOTV - 1 i 
Global Const LASTVIEW • 2 

Global Const SHORTCUT » 3 j 
Global Const DOME « 4 ' 
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Global Const FILTER » 5 
Global Coast COMITTC • 6 
Global Const SHOWVIEW = 9 
Global Consc ALPHA = 10 
Global Confir PICK a 11 
Global Const STARTUP ^ 12 
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Global Const MAXITEM = 9 ^-b' KCO^K-? >^^e;tfi 

Type Carfl 

self AE incegcr «Jl®^^V 70158 ft 
l«vel As int«yer tti)»t>ttnfci7- 1*^561 
name A3 String ;r^5' >/iJ-- KJt^lft|l Vx/^^ ^ 
infotwt Aa String 
actionCode As Integer 
actionData As String 
parent As Integer 
NItens As Integer 

ItCiB(HAXaTEW) Aa Integer i3'-\<^i >^<n^^l it 
celected As Integar aiR^M^:^^' ><^)9t 
End Typa 



a ^ $ nft k ? tr n 5 7 5? 3 > m o 3 - H 



HAXCARDS-Y >r'^y t'T.il-' ¥tt^(DUn 
Global Const MAXCARDS « 1000 
Global Cards (KAXCARDS) As Card 



Global B_BACK 
Global B_HELP 
Global B_PREVir/J 
Global B_UP 
Global B^tXDWN 
Global B_LErr 
Global fi_RIGHT 
Global B_^ELECT 
Global fi_PAGEUP 
Global B.PAGEDOWN 
Global B_l 
Global 
Global B_3 
Global B_4 
Global 
Global B,6 
Global B_7 
Global B_8 
Global B_9 
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Global B.O 
Global B^FILTER 
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Global Const RED = StHFFfit 
Global Const ORANGE = &H80F7«r 
Global Const YELLOW = &HFFFF& 
Global Const GREEN o tHSOFFSO 
Global Confit TtTRQUOrSE = &HFFFF0O 
Global Const BLUE » LHFFOOOO 
Global Const VIOLET ^ tHFFOOFF 
Global Con«t WHITE - tHFFTFFF 
Global Const BLACK » 
Global Const GREY " AHCOCOCO 



CONSTANT, rn A* 6 



01o2:al 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Globa 1 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Globol 
Global 



"I" 

const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Consc 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
const 



KEY.LBUTTON 
KEY.MUTTON 
KEV.CAKCEL - 
KEY.MBUTTON 



. CHI 

» bH2 



KEY_BACK - &H8 
KEY.TAB - tK9 
KEY.CLEAR * fcKC 
KEY.FETURN = kHD 
KEY„£H1FT » 4E10 

KE:y_cornROL = tHii 

KEY_XENU ■ &H12 
KEY^PAUSE * tH13 
KEY.CAPITAL ■ tHlA 
KEY_ESCAPE « tHlB 
KEY^SPACE » fiH2C 
KEY_PRIOR = tH21 
KEY.NEXT = 6H23 
KEY_EM) ■ 6H23 
KEY_HaME • tH2 4 
KEY^LEFT - 6iK2 5 
KEY.UP • SH2 5 
KEY.RTGHT - &H27 
KEY^POWN » SH23 
KEY_SELBCT = &H29 
KEV.PRINT ' 6H2A 
KBY_EXECOTE ^ fcH2B 
KEY.SNAPSHOT = tK2C 
KEY^INSERT = fcH2D 
KEYJ>ELETE = 6H2E 
KEY_HELP = tH2F 
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KET. A ;!) » ^ m J i r tt 7 ;i =^ - T V O ' A' 6^ e> ' Z ' C ^ 1 1 ^ 
KEY .0*- 0 KEY J i T- ti 7>C ^- O a * 0' e> ' 9* C 9f L V ^ 



Clcbal 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 



Const 
Const 
Cons c 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Confit 
Const 
Const 
Con>t 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 

COHBt 

Const 
Const 
Const 



KEY_NUMPADO = tHfiO 
KEY.NUMPADl = fcHSl 
KEY.NUMPADJ = &H63 
KEY_KUMPAD3 - iH63 
KEV_NUMPAC4 ' 
KSy_NUMPAD5 &H6t 
KEY^NUMPAOe = tH6fi 
KEY_NUMPAD7 = tH67 
ICEY_WMPAD8 = tH6B 
KEY.NUMPADS = tH69 
KEY^KOLTIPLV = tHfiA 
KEYJ^D ■ fcH6B 
KEY^SEPARATOR - tH$C 
KEY.SITBTKACT « tH60 
KEYJJECtMAL • tH6E 
KEY^rVIDE - tH6F 



KEY.ri 
KEV.r2 
KEY.r3 
KEY_F4 
KEY.FS 
KEY_F6 

KEY_F8 
KEY_F9 



tK70 
&H71 
km 2 
fcR73 
fcH7 4 
bH7S 
&H7 6 
tH77 
LH78 



KEY_F10 = ta79 
KEY_F11 = tH7A 
KEY_Fa2 « tH7B 
KEy_F13 - 4H7C 
KEY_F14 - &H7D 
KEY^IS = iH7E 
KEY_F16 = tH7F 



Global Const KEY.NUMLOCK = ftSSO 



I 

Function CaregoryString (typeCode As Integer, cacCode As Integer) 
Dirt nisg As String 



msQ = • Category: • 

typeTable . IndBX "ID" 
typeTable.Seek typeCode 
If typeTable.NoMatch Then 
meg - msg & typeCode 

Else 

msg « meg & typcTable t 'Naioe* | 
End If 

[t«fl » iDsg fc ■, ■ 'all on one line, 



A3 String 



replaced: Chr(13) & "Subcatfigory: 
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catTabl6.1nd«x = TD" 
CfttTablo.Saok c*tCod« 
Zt cacTable.NoMatch Then 
mag » ni»g cocCode 

Else 

msg = nsg & caiTable ( "Narne" ) 
End If 

CacegorySCrinj = msg 
End Function 

Sub CCopy (Cfrom Ae Control, Cto As Control) 
Cfroa:' > h a^/i.*^ t,Cto* "COiafltn fcr- 
Cto. Caption • Cfront. Caption 
Cko.BackColor • Cfrom. BackCol or 

etc. Top - Cfrom. Top \ 
Cto. Height ■ Cfrom. Keighc 
Cto.LeEt ■ Cfrora.Left 
Cto, Width = Cfrora.Wldch 
Cto.FontSize = Cfrom. rontSize 
End sub 

sub Centericem (Item As Control, x, y) 

Itenil^ft - X - Itaro. Width / 2 
I tern. Top » y - Item.Heigtt / 2 

End Sub | 

Sub CPlace (extra. Cfrom As Control, Cto Ae Control) : 

CCrora.Top - Cto. Top - BXtra 
Cfrom. Left » Cto.lUefc - extra 
Cfrom. Helgtit « cto.Kelffht + 2 * extra 
Cfrom. Width = Cto. Width ♦ 2 * extra 
End Sub 

Function DayString (d, length As String) As String 

Select Caa« Weekday (d) 
Case 1 

If length * -long" Then 
DayString ■ •Sunday* 

Else 

DayString - -Sun" 
End i: 
Case 2 

If length * -long* Then 

DayString = 'Monday | 

Else 

DayString » "Mon" 
End If ! 
Case 3 

If length = "long' Then 
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DayStrin^ s 'Tuesday" 

Elsd 

DayString » "Tue" 
End If 
Case 4 

Tf lcn<yth » 'long' Th«n 

DayStrino a "Wfldnesday" 

Else 

DayString » "Wed" 
End If 
Case 5 

It length « •long* Then 
DayString « •Thursday* 

Else 

DayString = "Thur" 
End IC 
Cosa 6 

If length = "long" Than 

DayString • * Friday * 

CXae 

DayString - 'Fri' 
End If 
Case 7 

If length • •long* Then 

DayString - 'Saturday' 

El9« 

DayString • 'Sat' 
End If 
End Select 
£nd Function 



I 



Function f ixAflipersand (text As String) ; 

Dim i fKs Integer 

Dim oldText A£ String 

Dim newText As String 

newText « 

oldTexc = text 

Whila ln3tr<oldText, 'k') 

i » TnScr EoldTexc, 'f) j 
newText = Lef t (oldText , i - 1) fc 'fci' i 
oldText • Right {oldText, U«n (oldText) - ii 

Wend 

f ixAmpersand - newT«xt k oldText j 
tid Function 

Sub InvokeHolp () 

TellUser 'Procs Help {?» again for general help, or press any button on the 
remote tor help with that button.* t 
Select Case roturnCode [ 
Case B_HELP 
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TellUser "General Kelp:" 
Case B_PR£V1EW 

TellUser 'Use the Preview button to se« ft vid*o pr«vi«w of the hlghlighced 
selection. " 

Case a BACK 

TellUser "Use the Baclc button to back MP to the previous screen." 
Case KEY.ESCAPE | 

TellUser 'Use the ShortcJt k«y to get to the shortcut buttons..-, 
Case 8_SELECT ; 

TellUser "Use the select button to choose a highlighted option," 
case else 

TellUser "This h«lp screen Is not written yet." 
End Select 
End Sub 



Sub Main () 

Dim i As Integer 

Din D3 A.5 database 

Set DB - Op«nDBtab«i*(CATDBl 

Set typeTablc - DB .OpenToblel "Type • ) 

Set catVable - DB.OpenTablo { 'Category ' ) 

£et OB - OpenDatahase (TVDB) 

Set »t»tTable • DB .OpenTable { "Stations" ) 

£etK«y* diapl«yMod« 

Set littPrt»(rv| = TVli«t 
S«t LietFnn(ttOVIE) ^ MOVlist 
Set llstFnntSHOPI » SHOPlist 

Color(Ot = tHBfBFOO T^'-/l'if')~> 

Color (II = kHFFFFSO ^-f h^JV— 

Colort2) - iHrrCOFF 7-fht5>i' 

Color 13 I = fcHFFBOFF i^—CfKy^ 

Colort4j • 4R8CC0FP < r < T U > 

coiortS) = &Hcorrco T^y X K^^u-v 

Colorific « 4HFF8080 oy'f;v7/P- 

ColottS) s iKrrcOCQ 

Color |7) iMCOCOfc t~PJ\^ 

fak.Today - CVDate ( "6/12/94-) 
fakeTime • CVDate("6:30 PM") 



newUser • True 



frrtiFra-Tie .Shaw 
DoEvents 

Load frniDftx 

Load fmAlpha 

Load rrrflTV 

Load frroMSC 

currDonain • MOVIE 
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viewFilter e 'Y^ar >= 1993* 
currViewtMOVIE) « 'Recent Kovles" 

currFiUerlMOVIEJ = " : All Categories- . 
S»tStacus Tlovit*', greyCOLO.^ : 
Load listrnn{MOVIEl | 

currDoiTAin = SHOP i 
f iUerslSKOP) = " 

SetStatus •Shopping, ccrapact disks". greyCOLOR 
toad liatFrTBlSHOPI 

currFilteHTV) = "Basketball- 

currDoniain - TV 

IilterB(TV» a -Category =» 39" 

uitrSCxing = "Wova" i 
fniVcekfc a- K 

Ii8tFnB(TV)*D-H i 
fniCottinjtD— K 

fniWdayieD-K 
fnfiSelect&n-J* 

SetStatu3 'Use arrows and »eUct or use kaypad.", greyCOLOR 
frmDox.Sltow 
End Sub 

Function Ov«ri»p (boginTS. ondTS) Ac SLring 

overlap ^ -(ScartTS • t Str(.ndTS) t ' Xnd FiniehTS • i StribeginTSi 
End Function 

j 

Sub Setlnfo izexz As String. Color) 
Dim s As sspanel 

Sec s " tnoFranelssplnfo 'works as long as £om is loaded 
s.BacJcColor = color 
5. Caption » teicr 

End Sub : 

I 

Sub SetKeys (mode As String) I 

B„l - KEY_NUM?A3"' : 
B_2 » KEY^NUKPADB 
B_3 KEY_NUMPAD9 
B.4 • KEY.HUMPADA 

B_S » KE:Y_NU>lPAn6 
B_7 a KEY_>imiPADl 

B_B o KEY_NUMPAi)2 ! 
B_9 - KEY^TlPAUi 
TC mode "TV Then 

B BACK « KEY_3UBTRACT 
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B.HELP - IB CO^-©4;.i"J0'H^b*»e.^C(,N 

B_UP « A5CC8*» 
B_DOWN = AscC2') 
B_LEFT - ASCl-4-1 
B_RICHT - ASCC6-) 
B_SELECT = AscrSM 
B.PAGEU? = KEY .DIVIDE 
©.PAGEDOWN = A5C("0») 
bIo = KEY^'LTIPLY 
B_FILT£R - KEY^RSTUHN 

Else 

B_EACX - KSY_F1 
B_HELP • KEy_r3 
B_PREVlEVf - KEY_F2 
B_UP « KEY_UP 
B_OCrWN « KEY.DOWN 
B_LEFT » KEY.l^EFT 
BJIIGHT - Krr_RIG«T 
B.SELBCT ■ KEY.KETUTW 
B_PAGEOP = KEY^PRIOR 
B^PACEIXJWN - KEYJJE3CT 
B_0 -= KEY.KUMPADO 
B^riLTER - KEY_F1 
End If 
End Sub 

Sub SetSt«cu9 (text As Scrlng. Color) 
JJf ^i: > 5/ -t- »^ t-J^-:? >r ^ :^ ^ ^- * I«f 
Dint s As SSPanel 

Sec s » frmFrame'-SSpStatus '(works as long 
s.BackColor » Color 
s. Caption « text 
End Sub 

Sub SiadAControl (Item Ae Control, t. H, 1, 

Itan.Top * t 
Itera.LefC » 1 
ICtfTTi. Height - H 
Item. Width « w 
End Sub 

Sub SizeAForm (frtn As Form, t, H. 1. w) 

frm.Top = t 
era. Left = 1 
frm. Height » H 
Crm. Width » w 
End Sub 

Function St&tionString (b) Ae String 
statTabl^. Index » "ID* 
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fitatTabla.SeeJc « 

If statTable.NoMatch Then 

MsgBox "illegal station ID • t a 

Stop 
Ena If 

ScationString = scatTable ( " Kane' ) 
Enri Functior* 

Sub TellUser tmessaga As String) 

userMsg ■ m«s9aga 
Wait frroMsg 
End Sub 

Function TimeLabcl (t) As String 

Dim 8 AS string 
6 = Fonrat(t, 'tiliiiren AM/PM") 
I£ MiC(S. «. 21 = 'SO' Then 
Tin«Lab«l = 

Else 

ft » FortnatU. AM/PM*) 

Tim«ULb«l = L«ft(6. L€n<o) - 3) 
End If 
End Function 
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Function TimeString (aDatel As String ; 
Dim theTime As String 

theTinie - Forroac (aDate. "fihrirm AM/PM- ) ■ 
theTlme = Let t (theTine. 5i * take just 'hhtnim' part 
If Left (theTlme, 1> = 'O* Than 
theTime = Right t theTime, 4) 
End If 

TiraeString « theTia« 
End Function 

Sub Wait tr As Form) 

F . Show ; 
Whilfl iF, visible) 
Do£v«nis 

Wend 
End Sub 
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Option Explicit 

Dim ftllOata(8) As anapshot ttIfflrt©4TOr-^C j 

Dim flXterDaca(8» Ks snapshot m^izm i^B(0:^t vrT^.B Y 

Dim NDays As Integer &mmB\Zh(nW. \ 

Dim NSlots As integer ^;pF*?(5^' -< n -y KOffi 

Dim NProgs As Integer ifc^p^i^^tflcoa i" display 

Dim colarField As Strina i^Ui^^-'^lk^t^f-'^^-T^y^—^^ 

Dim inPreview As Integer ^ LiE t»^nUrUt:a 

Dim refDate 5:-^^ ^ A;^ U v h ffl^> 'J 7 r W ^-XSN" . 

Din ilotEPexDay As Integer 1 0 U?F$ iTfc:^ D •;r h ©St | 

Dim currDay lyH^BC cta+- . , ! 

Dim dayWidth As Integer 5ft ^'NJPtTJfti 

Dim IblKaighc A« Intower Qft^ '<;K?)?a$ I 

Dim infoHeighc A3 Integer ^^{t^tlft\(^1^^^^A<D^cf \ 

Dim timeHeighC RW^^^^H* 

Dim etartTlaie trA-M©5S«ll4M 

Dim TSBcgin Aa Long iSB^ai^iO^' Y AXa y h 

Din ?SEnd X3 Lor^ ^S^Sa^O^ h 

Dira TScurrent As Long SSOft^ScO^ f A::;n';f h 

Sub ApplyPi Iter () « 

Dim i As Integer 'counter ; 

I 

For i ■ 1 To NDayo i 
allOftta(i) .Filter = -Title - t ueorString C 
sat liltarDatad) = allDa ta ( 1 1 . Cr«ateSnapshot ( ) 
filt«rDAta(i).Sort ^ 'StartTS* 

set niterDatatl} ^ filterData(i) .CreateSnapehotO 
Next i 
ena sub 

Sub ChargeSel td A* String) | 

Dim current *as database marker 1 
Dim SUCC4E8 As Iiitegwr 'boolean 1 
Dim s AS Integer 'station number 
Dim best 

Dim TS A« Long 'time alot 
Dim F Afi ■napahot 
Dim aDay As lnt«ger 
Dim marker "a* bookmark 
Dim arrowa Aa String 

CMrrent f iitcrData(currDay) . Boofenark i 
Set F - filterData(currDay) 
c » rCSCation*) 
TS • TScurrent 
aDay - currDay 

success - Folse I 

Select Case d I 
Cage 'Right" 
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F.FindNext "SCartTS > * & Scr(TSl j 
success - Not F.NoMatch , 
If success Then 

TS ' FCScarcTS'J 

F.MoveNext 

If Not F.EOF Then 

If FCStartTS-) • TS Tlien 
infoArrows "down* 

Else 

infoArrows -none* 
End If j 
Else I 
infoArrows "none" 

End If 

F.MovePrevious 
End If 
Case -Left- 

F.FindPrevious 'StartTS ^ ' t Stc(TS) 
success ■ Not r.NoK&tch 
IE success Then 

TS » FCStartTS') 

F.FindFirat 'StartTS - * & 3tr(7S) | 
Xg « FCStartTS* 1 

^n^wi^m^^'^t^f' X »y 

F . KoveNext 

l£ Not F.EOF Then 

It FCScartTS-) - TS Then 
infoArrows "down" 

Else 

infoArrows 'none* 

End If j 
Else ; 

infoArrows 'none' ! 
End If 

r .MovePrevious 
End If 

If NProgs < 1 Then Exit Sub 'do nothina if all snapshots e«;pty 
oDay « aDay 1: TS = T5 ♦ 48 
While Not success And aDay NPays 

Set r « fllterData(aDay) 

r.FindFirst 'SCartTS > * i Str(TSl 

If F.NoMatch Then ' 

If Not F.EOF Then F.MoveLast 
If Mot F.EOF Then 

success =■ True 

TS « FCStaxtTS') 
End If 
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Els* 

marker » F.Booionarlt [ 
best - FCStartTS') - TS ' 
F.FindLasc "ScartTS <« ' b StriTSl 
If F.NoMatch Then 

F. Bookmark ' mdrkcr 
TS = TS ♦ best 

Else 

If TS - FCStartTS" ) > best Then 

r. Bookmark = marker 
TS = TS ♦ best 

Else 

TS = F("StartTS') 
End ir 
End If 

success » True 
End If 

aDay = aDay + l: TS TS ♦ 48 
Wend j 
aDay = aDay - 1: TS « TS - 48 | 
If success Than | 

F.FindFirct -StartTS « ' fc Stx (TS) 

If F.NoMacch Then Stop 'how did we get o TS with program in it? 
TS - FCStartTS-) 

F.MoveKext 
l£ Not F.EOF Then 

If FCStartTS") • TS Then 
inCoArrows "down* 

Elee 

infoAxrowE "none" 
End If 

Else 

infoArrows "none" 
End If 

F .MovePreviou8 
End If 
Case "Up" 

Tf NProgs < 1 Then Exit S'^ 'do nothing if all snapshots enpty 
aDay - aDay - 1: TS - TS - 46 
While Mot aucceas And aDay > D 

Set F * filterDato<aDAy) 

F.FindFirst "StartTS > ' fe Str(TS) 

1£ F.NoMacch Then 

It Not r.EOF Then F.MoveLast , 



:nie islot 



(74) , 1#§3^8 - 2 9 2 8 6 6 

145 

If Not F.EOF Th«n \ 

Bucceas • Tru« 

TS - FCScartTS*) 
End If 

Else 

marker « F . BooicniarJc 

besc = FCStartrs') - ts 

F.FindLast 'StartTS <- • t Scr(T5) 

If F.NoKatch Than i 

F.Boolanark ■ marker • 
TS » TS * b«3t 

If 15 - F (•StartTS') > besL Then 

F.Boo)cnar)c ■ oarlcer 
TS = TS + best 
£Lse 

TS B F( "StartTS* I I 

End If i 
End I£ 1 

success ■ Tzu* 
End If 

aDsy » *D«y - 1: TS - TS - 48 

Wend 

aDay - aDoy ♦ 1; TS « TS ♦ 48 
If succeaa Then 

F.FindFirst 'StartTS = " & Str(TSJ } 
If r.KoKatch Then SCop ^Ut^^<0^iZU\>(DiZi^^^-y'CT S ^f^tz(r)t^'^ 
TS '= F( "StartTS* ) 

F.MOveNext 
If Not F.EOF Then 

If F I -StartTS •! - TS Then 
infoArrows •down" 

Else 

infoArrows 'none- 
End If 

ElBe 

info Arrows 'none* 
End If 

r . MovePrevious 
End If 
Case "Next • 

F.MoveNext 
If not F.EOF Then 

succefs = F( 'StartTS-) » TS 
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End If 

If success Th«n 
F-MoveNeitt 
arrows * "up" 
If Not F.EOF Then 

If FfScartTSM = TS T^ien arrows = "both' 

End If 

F.MovePrevious 
infoArrows arrows 
End If 

Case •Prior" . w^^*«^ 

F.BovcPrevioua 

If Mot F.BOF Then L„*x-Vfc«ftt 

success - FCStartTSM « TS 
End If 

X£ cuccese TTien 
F, Move previous 
arrow* = 'down' 

If Not F.BOF Th«n .w^^i,. 
If FCStartTSM » TS Then arrows » both 

End If 
r.Mov«N6xC 
infoArrows arrows 

Bnd If 

If Not F.EOF Then 
r.MoveNext. 
arrows - 'none' 
If Not F.EOF Then 

If Ft-StartTSM = TS Then arrows = down 

End If 

F . Mova Previous 
infoArrowft arrows 
End If 
End Select 



If success Then 

TScurrent « FfStartTSM 
cur r Day - a Day 
Di»playPro9 
Else . . ^ 

JilterData(currDay) .BooJonarK 
End If . ^ ^ u 

TSBcgln = DateDiff fn-. rclDate. 
TSEnd = TSBeoin + sLotsPerDay - 
End Sub 



current 



UtartTime + currDay 7 HI ^ 50 
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Sub DifiplayProg () 

«ttm?i'c{fi?9^t X & -fe -y h L V •> 3 > fe^wr s 

Dim F Aft snapshot 
Dim msa As String 

Set F ■ f ilcerOatalcurrDay) 

msa ^ StationSCring(Ft'SCation-|J t ' t Format IF { -Start- ) . -h:ctun AW/PM' J 
msg - msff fc • to • ir Format (FfFinish- ) . "h^nun AM/PM. M j 
msg a msg k Format (F ( 'Titl*' 11 

Bifig = msg ( ChrCUJ k Mepificxie info h«r«l- romat(F( -Episode ' )) 

Setrnfo msg. ColortFtcolorFi^ld) Mod 9) 

ahpprogjoj .Vitibla « ral»« 
••lector .Visible • False 

position shpProo(O). rrStartTSM. Fl-Fii^ishTSM 
CPlace 0, selector, shpProgiO) 
»hpProg(0) ,Vi»ibl» » Tnie 
selector. Visible - True 
Eod Sub I 

Sub OoPreview () 

Din nsg Aji String 

rasg filcerDataUurrDay) {"Title') 

msg = lucg £ Chr(13» t 'on ■ b ScationStrin^ (£i I terData (currDay) t 'Station" H « 
ChrfUJ 

msg » msg fc Cat«goryString( ( filterDataicurrOayK 'Typ** 1) , 

I f ilterData (currDay ) ( -Catogory- ) ) ) 

rr^g - msg & Chr(13) t DayString(Weekday<f ilterData IcurrDay) i'Starf) ) , -long') 
nsg » rnsg & ' & Forrnat (f iltorD*ta(currDay) t 'Start* ) . "rencft d, yy hirnm AM/PM- ) 
msg = msg & Chr(13» 4 " to ■ t Format ( EiltarData (currDay) ('Finish- ) . 'hinan 

AM/PM' ) 

popup. caption = msg 

SiieAControl popup, (IblTlme tl K top * 1.5 • IblTine (1 ) -Height } . 12, 
(IblDayU) .WldU:) . 45 

popup .Visible » True 

inE^review - True 
End Sub 

Sub Deselect: (} ! 

userStacion * filterDa'talcurrDay) I "Station' ) 
usarStact = EilterDacatcurrDay) ( 'Start • ) 
r&turnCod« = TOTV 
Ma. Hide 
End Sub 

Sub DrawProg (duplicates As integer, indax As Int»g«r) 
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«hpPpog(0 ) * U I- ^ D ^-i' a > * * ^ * 

Din ebova, bolov, cido. wide 
Const CAP = .3 



above = shpProo(O) .top 
below = shpProg (01 , Height 
side ■ shpPcootOJ .Left 
v*id^ = slipProg(O) .Width 
ForeCclor = blackCOLOR 
FillScyle « 0 'solid 
drawwidth = 1 



lino color, thin black outline 



GAP] , 



.5 • CAPJ, 



Select Case duplicates 
Case 0 

tillColor sf Color (Indax) 

Line liid«, above) -Uide ♦ wide, above ♦ belov 
Case 1 

filXColor « greyCOUJR Sfe^TT^T (^flttStca 
Line (aide. obov»>-(»idB ♦ wid«, above ♦ below 

abov« • abov« ♦ OAF 
aide • aide ♦ GAP 
wide - a • GXP 

drftwwldth - 2 , 
Line (BidB, above) -tcido * wide, above ♦ wide) 
Line (side. Above widet-Ceida ♦ wide, above) 
Line (eide, above ^ .S * widat-(aida * wide, above - .5 * wide 
Line (6id» ♦ -5 * wide, above) -(side ♦ .5 • wide, above-* wide) 
Case Else 

End Select 



End Sub 

Sab Fonn_Act:ivate 1) 

Dim I AS inteoer 1:^^^ 
static saverilter A9 String 

If aavcFilter - U3er3tring Then sameFilter = True 
saveFilter userString 

SetStacuB -This Week: * userString, gceyCOLOR 

IE Kot c*iae7ilter Then 
Me.Clt 

Settnfo -Loadinff program inf ott« t ion . . . • , GREV 
shpProg<Ol .Visible = False 
selector. Vlaiblc » False 
intoArrowa 'none' 

DoEvents 



I 



ApplyFiltcr 
MakeOieplay 
sameFilter - True 
End rf 

End Sub 
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Sub Form.KeyDown (KeyCode As Inteoer, Shift As Integer) j 
Dim index As Integer ! 
Dim n As Integer 

Select Case KeyCoda j 
Case A9CCQ-) 

End 
Case B_BACK 

retumCode = BACK 

tfe.Hide 
Case B_H£LP 

saineFllt«r • True 

InvokeHelp 

Caco B^PREVTEW I 
If InPreview Then 

tnPrevlew • False 
popup. Visible - False 

Else 

inPreview = Txve 

End re 

Case B.RIGKT 

ChanceSel ( -Right • ) 
Cas© B_LEFT 

ChangaSel {"Left') ; 
Case B_UP ) 

ChangeSel {"Up') 
Case B_0OWN 

ChangeSel ("Down*) 
Cose B_SELECT 

If Kot fllcerData(currDay) .EOF Then Doselecc ' 
case B.PAGEDOWN 

ChanaeSel ("Next') 
Case 3.PAGEUP ; 

ChangeSel ( "Prior* i 
Cace a.FTLTER 

retumCode - PICK \ 

Me. Hide 
Case B_0 

returnCode = SHORTCUT 

Me.HicSe 
End Select 
If inPreview Then 

DoPreview 

Else 

popup. Visible 3 Fals* 

End It . ' ! 

End Sub ! 
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Sub Fors\_Load () 

Dim i As Intoger 
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7 * - i3D Cl i 7 If > V S t -y h 
Me.BackColor » tonnCOLOR 
shpPrcg(Ol .BackColoT = 8ord«rColor 
IblDaytOI .BackColor = backgroundCOLOR 
selectQr -BorderCoLor = BordorColor 
dayLin«(01 .BorderColor = divideCOLOR 
XblTimelO] .ForcColor » slotCOLOR 
shpSlot 10) .BorderColor « slotCOLOR 
InfoPanel.FontSizt • nediuaFCDNT 
If displayMode = 'T/' Then 

lbll>*yl0) .FontSiie » bmIIFONT 

IblTlnelOJ .Fontsla* - KoallFOrJT 

popup. PontSize • nedluittFOKT 

Else 

IblDaytO) .FontSiie - largeFCwT 
XblTi»«(0) .FontSiz« » largeFOWT 
popup. Pont Si re ■ larceFONT 
End I£ 

SiieAForra He, 0, DtspTop ♦ DispH«ight. DifipLeft, dlspWldtb 

KDays • 7 
NSlocs - 48 
daywldth - 4 
IblHwight « 3 

infoHoigbt = 6 j 
I£ displayMode - •TV" Than 

ujiArrow.Laft = 8950 i 

downArrow.L»fc « fl9SD 

tiroeHeight 2 

downArrow.top « 650 

upArrow.cop ■ ISO 

Else 

cimeHeight « 1.5 

downAxrow.top » 1525 
tnd It , . 

K». Scale (0, ' 0) - (MSlota * deywidth. raays * lbl>leichc -^ 2 * cinwHaight * 

infoHeighc) | 
aeLector.BorderNidch = 1 

SiaeAControl Inf oPanel , 0. intoHeight, 0. IKe.ScaleWtdch) 
infoPanel .Caption - 
infoPanel. Visible • True 

£lz0AConcroL IblDaylO) . IblHeight ♦ infoHeight, IblHelghC, 0,= da/Width 
For i = I To ND«y« 
Load lblD«y{it 

IblDaydi .Caption » DayStringfi, "short") 

IblDayii) . top = (i - D ♦ IblHeighc ♦ inroHeight ♦ 2 • timcHeighc 
IblDayti I .Visible = Tru« [ 
Mext 1 ! 
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A M/ P M 7 '<;V' -t ttr 

Six«AControl LblDayCd. infoHcighc. tineKeight, dayWidth, NSlots 
lbLD*y(OI.C»ption «= -XK NOON jPH' 

IblDaylOl .Visible » Trut j 

sf«AControi*\^ tiblDay (01 .Height) + infoHeight. timeHeigh:, 0. 
For i s I TO NSlot* \ 2 

toad IbLTimetil . 

lblTin.<,U J. Caption TimeLabeHr>ateAdd(^h-, (i - 1), f»KerODAY| » 

IblTirneli) Left * 2 * i ♦ 2 

IblTireelil -Visible - True 
Next i 
NProgs =0 
sameFilter « false 

InputDaca I 
ForruActivate | 
End Sub 

SMh infoArrows <alrflCt As Strinff) ' 

Salect Case dil«cc 
Case *up' 

downArrow. Visible - False 

upAr row. Visible - True 
Case 'dovin* j 

ufsArrow.Visiblw - False j 

aownATTOw. Visible - True j 
Case -both* 

upArrovr. Visible - True 

downArrow. Visible - True 

Case -none* 

upArrow. Visible ■ False 
downArraw. Visible = False 
End Select 
End Sub 

SuD InputData t) 

f ora.loadc^? 65^ . , ^ , i 

Dim DB Ao dacaboae 

Dim R«f3nap As sMpshot ! 
Dim i As Integer 

i 

Set DB • OpenDatoba9e(TVI>B] 

Sftt R«£5[l«p - DS.CreAteSlvapshot l'R«£«r«nc« ) 
RefSnap.FindFirtt 'Kaine = 'Date'" 
riffOate » DateValuatR-fSnapl'Data-)) 

RBiSnap.FlndFirst 'filaifte = 'HSLatione" \ 
Set allDatalOl ' DB.CreateSaapshot f Programs • ) 
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BtartTime = refDaca 
TSBegin = 0 

TSEnd ■ TSBegin ♦48-1 
For i n 1 T3 7 

allData (01 .Filter = Overlap^TSBogin * 48 • (i - 1), TSEnd 
Sec allDatali) « allOaca(O) .CrefttaSnapfihot ! ) 
Next i 

Set allDataiO) = Mothin^ ^ -J^ttOf^- u?i:l.> 
End Sub 
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Sub naXeDisDlay (} 

Dim i As Integer 'counter 
Dim d Ab integer 'day 

Dim TSlasc As Integer 'last time »lot affected 
Dim F As snapBhot 'convenience \ 
Dim offset A9 Integer 'used twice: dayline OttBat & number of proorama sharing a 
time slot 



drawwidth - 2 

ForeColdr ■ IblDay(O) -BackColor 
oCfeet * infoHeight * 2 ♦ timcHelght 
For i - 0 To KDays 

Una (0. ofEaet ♦ i • IblBeight >- (53 , offset ♦ i • IblHeight) 

Uoxt i 



offset a 0 ?^Sfl!)S'^A;?D-/ H^>Ji:^gffi7;i't:'i:^TV>5jtPh7ry4rSr»Si^5 
colorField ^ -Category' ft : cnUfti^tJ tr.Tjrpc' 
For d « 1 To NDays 
currDay ■ d 
TSlast = -1 
Set F - lilterData Id) 
II Not F.EOF Then 
F.MoveFirst 
Do VTilJe Not F.EOF 

If FI'StartTS*) = TSlast Then 
offset « offset ♦ 1 
Drov/7roO offset, -1 

Else 

offset » 0 

poiition ahpProg(OJ, ? ( -StartTS* ) , F ( TlnlshTS' ; 

OrawProg offset, F (colorField) Mod 9 

TSlasc • Pi-StartTS') 
End J? 
F .NovaNext 

F .HovePir*t 
End If 
Next d 
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d = 1 

currDay a 1 
WhllB d <= iro*y« 

le filterDatatd) .EOF Then 

d - d * 1 

^^^^Progs = 1 /iri^afi'0LU±irifc6Ci:l-5$K 

curroay ■ d 

d = NDays t 1 
End l£ 

Vend 

BhpProg(O) .ZOrder 
selector. ZOrder 

If Not filterDeta (curroay). EOF ''^^ 

TScurrent - C UterOat a (currDay) ( SCarcTS 
DisplayProg 
ChangeSel •none* 
End If 
End Sub 



finieh} 



Sub PocltLon (Ehap« Xg Control, start, 

Dim leftTS 

Dim rightTS 

Const smnllGAP * -1 

leftTS « start - 48 * IcurrDay - 1) 
rightTS - finish - 4ft * (currDay - 1] 

shape. t dayWidch . leftTS 

shap^.Width . rightTS - leftTS * 1 - s=«.UOAP 

It shape. Left < dayWidth Then 

shape. Width « shape. Width 

shape. Left » dayVidth 
End It 

6hap«.top - IblDay IcurrDay). top 
End Sub 

Sub Satlnf o imsg As String. Color) 

infoPanel.DackColor = Color 
infoPanel.Coption > iwg 
End Sub 



(dayWidth - shap^.Lefc) 



sniallGAP 
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OpCion Explicit 

Dim ftllDataiei As snapshot 'oil data within tine period 

Dim NDays AS inteoer V^^^^^^jl 

Dim NSlot. *s Intugor V^i^,-^jT^JJ±°'' 

Dim NStation As Infqet 't"^^ iT.B^^t, 

coi...ieZa X, «^*.-^^^t |.-J^-X^ .V ^ 

Dim inPreview A, Integer "/-^W t-/^L'a-*<»*n^^iEU^^ 

Dim alotsPerDay As integer -Bk-Sr^tltfexn 5» HX)R 
Dim currOay As Integer aB©0 

Dim startTine ^ ' ^^'L^J'^JZ^,^^^^, 
Dim TSBeoin A3 Lono B«J(0?-f i^n-y > 
Dim TSEnU AS Long flaffl^'-f iXD y h 



Dim 1 Ac Intogcr 

If InStcl filters tTV), -Station- 1 Then 

notation • 10 

: ^^^^ 
colorField - •Type* 

Else 

llStfttioR «• HaxStation 
colorField • 'Cacagory' 
End If 

For i « 1 TO NDays 

allDdtatD.rnter - fUterstTV) 
sec fiUerData(i) ^ allData tl 1 -Creat«Snapchot () 

End Sub 

sub ChanoeSel (<a Afi string) :h-> ! -r 

Dim current, firstmtch :r-i?'<-;^^-*-t LT 
Dim success As Intcoer ^^-/l' 
Dim 3 AS Integer ^'r-U3> 
Dim 7S X» Long ^< v h 
Dim r A3 snapshot 
Dim aDay Afl integer 
Dim best As Integer 

current - £i.i t&rData (currDay ) . BOo)cnar)c 
Set F = ti:tarDatat=urrDayl 
s w F( 'Station' ) 
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TS = TScurrent 
aDay = currOay 
success s False 

If d = "Riohf Then 

F.MoveN'ext 
If Not F,ECIF Then 

success = FCStacionM - s And FrstartTSM - TS 

End If 

It not success Then 

ehpSlottrS - TSB=gln ♦ l * IcurrOay - 1) • slotsPerDay) .PUl Stylo 

lblTlme(TS - TSBegln ♦ X * icurrDay - 1) - alotsPerOay) .BactcStyle 

0 * trails pacent 

Whtl» aDay <= NDays And Nat success 
While TS < TStnd And Kot success 
T3 » T3 ♦ 1 

F.FiBdPiret Overlap CTS, TS) & "And Station >= " t $ 
If r.HoUatch Then j 
ma OJCW)' i .t<Dm £ 1 5 i 
r.FindLast Overlap (TS, TS) & "And Station < T k 9 
8ucce59 « Mot F.KoMaCch i 

Kuccesa ■ Trtie 

b«st = FfStation") - c 

firttMaceh » F.BocVir*rk 

F.FindPrtvious Cverljp(TS, TS) ! 
T£ P.NoMatch Then 

F.BooKnark » firstHatch 

Slee 

If a - F( "Station') > best Then 

F . BootaTvark = flrstHatch 
End If 
End IC 
End It 

Wend 

If Not success Then 

TSBagin « TSBegin * 48 

TSKnd • TSBagin * alotaPerOay - 1 

7S = TEBegin - 1 

aDay = aDay * 1 

Sat F ■ f iltfii'DataCaOay) 
End If 

Wend 
End If 
Elseif d » "bett* Then 



! 
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TS 



F .HovePrevious 
IE Not F.BOP Then 

success ' FCStationM - s And F( 'FinxBhTS- ) 

End If I 
If Not success Then | 

'■"'"'""''l.lTimetTS - TSBegin ♦ 1 - (-rrDay - U • slot.Pern.y, .BackStyle ^ 
0- transparent^ ^^^^^^^ . ^^^^^ j,,, 

r%indflr3C Chrerlap(rs. TSl t • And Station >■ - I. Str(eJ 
l£ F-NoMatch Then 

r.rindLast 0/erlap(TS. TS) 
succ«B6 = Kot r.NoMatch 

Else 

success » rrue 

firstKatch ■ r.BootanarK 
belt - P( "Station*) - s 

r.PlndPrevlou* Ov«rlap(TS. TS) •will ^ less than current 



station 



'try previous day 



If F.NoKatch Then ^^.^ 
F.Bookiaark - firetMotch 

Else 

If a - F( 'Station") > beat Then 

r.BooJoaar)c - iirstMatch 
End If 
End If 
End If 

Vend 

If wot SMCcess Then 
aoay • aOoy 1 
TSBegln • TSBegln - 43 

TSEnd * TSBegin ♦ sLotsPerDay - 1 j 

Set P = filterDaca(aDay) ! 
End If 

Wend 
End If 
Elself d = 'Dovn* Then 

^'^"^"l^^th *ir«t ti^ Blot in .«H day. of course) 

V'A:T.II ^^rr^U.,ir.. rs, . . Xna station <> • . .trU) . •)■ 
success « Not F.NOKatch 
ElseU d ' *UP' Then ; 
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• (With exception of Cirst tim» .lot in tach day, of course) j 

F.Boo)cr>ark » current i 
F.FindPrevious fa OveriaptTS. T3) «. ' And Stacion <> ' tiStrts) t 
success " Not F.NoMatch 
El self d • 'Top" Th«n 

r.Flndrirst overlap ITS, TS) 
success « Mot P.KoWatch 
El self d • 'Botcarc* Then 

r,rindLast overlap (TS. tS) 

succeet - Not r.NoKfttch ^ 
End If I 

I 

If success Then 1 

s«f? . i 

TScurr»nC - TS 
currDay • aDay 
OicpXayProg 

El«e 

filtarDat«(currD»yi .Boo)an*r)c • currant 
End If 

TSBcgln « D&teDitfl'n' , refoate. 
TSEnd « TSBeffin ♦ sIotoPerDay - 1 
shpsiociTScurrent - TSBesiD ♦ J ♦ (currDay 
0' solid 

IblTinve CTScurrent - TSBeyia * 1 
I'opoque 
End Sub 



UtartTirna ♦ currDay - 11) \ 30 i 

• «loteP«rDayl .FiXlStyle - 
(currDay - 1) * slotAP«LrDay) .BackStyle = 



Sub Die^ilayProg {) 

Dim F A« snapahot 
Dim meg As String 

Set F « £llt»rData (currDay) 

ahpProotO) .Vifiibla = False 
selector. Visible s' FalBe 

"mtou .hpPr.,.0). P.'Starf), FCTinish-K FCSt.UcnM 
CPlace 0. selector. shpPrcg(O) 
»hpProg(0}. Visible = True 
selector .visible » Tr\ie 

m'i/^V^.I^'oaS^cring IF (-Station-)) ' - ' ^ PCTitie-) & " 
meg « fvsg t Format (F( "Start • K W*/?M') 
m4 ^ mBg t • to • t Fomvit(FCFinish- ) . 'h:w» AM/PM- ) 
SetTnfo msg. Color (F IcolorFiald) Mcjd 5) 
End S'ib 
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Sub DoPreview () 

Dim rasg Aa String j 

i 

msg - -Sttttion: ' StationScring(filtQrD«t*(i;iirrD4yU 'Station* ) ) ! 

msg = PSQ k Chxtl3J & "Title: - & f ilterData (currDaylt 'Titl«' ) Chrll3) 

n.sg ^ msg d Category String UfiitecDatat curr Day) ( -Type' 1 1 . 
(filterDatatcurrDay) ("Cacegoryi) I 

irsg = msg & Chr(131 & "Tirne: " & Fonnat (filterData (eurrDayJ r Start' 1 . •rnrm d.yy 
h:ran AM/PMM 

rrsg = msg b Chr(13) & * to • t Format < CilterData tcurrDay) I Tinish- ) . 'h:iun 
AM/PM") 



popup. Caption * iwg 

I»pup.T<>p - IblTime(l) .Top ♦ 2 • lbirine{ 1 K Height 
popup. Left = 2 

popup. Width c «lot»F«rO«y • NDays - J 
popup .Visible - True 
inPrwi*v« - Tru» 

End Sub 



I 



Sub DoSelect. () 

m^0)f'M>'r'-'9 6-t h t T V C^f < 

u«erSt»tiort - fiIt«rD«ta(currD*y) ( 'Station* ) 
userStart • f ilterDaca(currDHyK"Start • ) 
rtttvimCod© « TOXV 
Me. Hid* 
End Sab 



Sab FonruActivate () 

Dim i Aa Int«aec 'counter 
scaitc saveFllter as string 

IC saveFllter » filters (currDojaain) Then fiarwFilter = True 
saveFilter » f lltere (currDomaini 

SetStatuB "Evening TV; ' ti currFiltertTV) . greyCDLOH , 

If inPr»vi«w Then j 
popup. visible = False j 
inPreviei* • False ! 

End If 

IC nevUaer Then 

popup. C*pt ion » 'Pr^sa 'cattgory' to change the kind of programs di played, 
popup. VLeible ^ Truo 

newUser « False 
End IE 

If tameFilter Then 

rc TScurrent > 0 Then 
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ehpSloCTScorrent - TSB.,in ♦ I ♦ (currD.y - I) • »lot.P«My) .filiscyle 
• lbmn»(TS=urrenC - TSBe,in * 1 * t~rr0.y - U • .l,t.P«D.y. .tockStyle 

« 1' solid 

End l£ 

Setlnfo 'Loadir.a program ioforrMtion- . - ' , ORPi 
chpProgtO) .Viflibla « FaU* 
LblDay 10) .Visible - Fals* 
IblTirie(O). Visible - Fals* 
shpSiot(O) .Visible » False 
selector. vlilble • Falsa 
For t = I To NProfls 

Unload sbpProgli) 
Next 1 
XpplyPiltcr 
KalceOispla/ 
Atunefilter «= True 

End z( 
End Sub 

Dim IndQic Integ«r 
Dim n Ks Inceyer 
Select Case teyCode 
Case AscCQM 
End 

"".hScrScurrenc - TSBe,in . 1 . (currDay - 1. • slo«PerD.y. .FlllStylo • 
'■'""'"Jbt^LcTScurr-nt - TSBegln * 1 r ,c«rC.y - II ' sXotsPcrD-y) :B.cMtyle = 

0 * craaspor«At ! 
retumCode - BACK 
Me .Hide 
Cace B^HEtP 

SAMFilter - True 
Invo]t«H«ip 
C»co B^PHrVICM 

I£ inPreviev Then 

popup .Visible ■ False ; 
inPrevievf = False j 

Else 

inPreview * True ! 
End l£ I 
''"%f"KoraU*rDato(c^rPay).EOP Th« Chanye5el CnighC-J. 

^'"if'N^'^aiterDatntcurrDayl.EOF Thea ChonyeSel i'LetrL') 

^"*i£"Not fLlt«rDaMtcurrO*y).E:0F Then ChargeSel CUp-) ! 
Case B_DOWW 
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1£ Hot niterOawicorcDay) .HOT -men ChanseSol »'DovnM 
""sh^llocascurrenc - .SB„in . 1 ♦ .currD.. - 1. • .Ict.P.rDay, .Vinstyl, . 
'■'""'!bm™e,TScurreac - TSBe^in . 1 ♦ <currD»y - I. • .Ut.».rD.y I -W.S.yl* - 

If Not tllcerDarnlcurrDayl .tCF Then OoSeiecL 
""i?-N=™«D.«,=urrO-y..«jr Tt..n Ch.n,eS,l , -Hotter-, 
'""if-'ot'^Ilt.rC-t. (currDay. .EOF Th.n ChangeSel ( -Top- 1 

""%h;""ascurr«,t - TSBegin . V * (c«rD.y - I, • .loC^orDay.. FiUScyle - 
^'""•^tbrnmetTScurrent - TSBe,!. » 1 ^ .currD-y - 1. ' slor.PerDoy,;.B.=,cStyle = 

0 * troiifiparent ! 

retumCod© - Filter j 
Me, Hide 

'""i;°io.,TScu,r«„. - TSBegin . 1 * .currDay - I) « .lofPerD-y^rlllStyle = 

^■"""•^mn-CTScurr^nc - «B^ln ^ I - .c-rxB.y - 1> • .lot,P«D,y) .B«cWcyl« = 

0 * transparent 

returrtCod* - SHORTCUT 

Me.KidG 
End SeLftct • 
If inPrevlew Then 

DoPreview 

Else 

poouo. Visible s false 
End If 
snd Sub 

l\TtTsVL.^r. 1 A, lnt.,.r. n *. Int„« 'counters 
Dim t 'as time 

He.BftCkColor » EormCOLOR 
3hpPro9(0) .BackColoc » BorderColor 
lblDay(0).BockColor - backgroundCOLOR 
a«L«ccor,3orderColoe - BordcrColor 
d«yLlne<0) .BorderColor • divideCOLOR 
IbXTimeCOl .ForaColor - eXatCOLOR 
6hpSloc(0) .BordtrColor » slotCOLOR 
le displayKode « 'TV ThQn 

lblD«y(0) .FontSit« » «in*llFONT 

IblTime(O) .rontSlK© ■ ctoaHFONT 

popup. FontSir* « medixiraTONT 

Else 

lMDAytO).FontSll« - lirfleFONT 
IblTlne(O) .Fontsite • laroeFONT 
popup. FoncSii* = largeroiTT 
End IC 
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SizcAFon. K.. DispTop, Dispa.lghe. Dl.pL.ft. Bi.pWidtb 
Me. Seals (0, Ol-(503. 500) 

SizeAControl popup. 250, 200, 250, 2O0 ^ 

selector .EorderWidth - 1 ^ 

dayLinetOl .Yl = 0 i 

(JayUnotOI .Y2 = 500 j 

sankeFllcei = False j 
sanwView » False \ 
inPrevlew • False 
NProas « 0 

NDay3 - 5 ^DSBHI 

BlotsPerDay « 6 3»*rJ, 6 ZOS^'AOy^ 

'"':««Tln« . U>teAd5(-d-. 2 - V..W.y,.t.rCTl«. , ««rcTi„e) ,UrtTi«eJJ«H 
Me.ecaleWidth - NSlots 

ibirijwi(o). Width - 1 

dhpSlot 10). width - 1 i 
For i - 1 To NDaya 

st^A^'^roi'LlDayil. 0, 1«HEIC«T, .lot.PerDay • (i - 1.. .loc.P.cPay 

IblDay(l). Caption = DayStringti * 1. "ehort > 

IblDaytil .ViBlblfl ■ fruo 
Ne»ct I ! 
For d » I To MDays ; 

For i « 1 To tloteP«rDay 

n c (d - 11 * slot8P«rDay * i | 

Load snpSlottnl ! 
BhpSlot(n) .wove n - 1 
shpsiPtin) .lorder 
shpsiocinl. Visible = True 

Load IblTlJne(n) 
IblTiBwlnJ .WovK n - 1 
IblTiMlnl .ZOrdtr 

t . DateAddfn-, 30 * (i - U . .cartTime) 

shpSlocli) .rlllScyl* - I'traneparont ' 
lblTiin«lil .SackStyle » O'transparenc 
IblTlmetnl -VialbU = Tru» 

If d < KDays Tben 
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Load dayLLn«(d1 

dayUnetdl.Xl ■ d ♦ alotsParDay 
dayt-inetd) .3t2 «= d • alot»P«rDay 

Sad It 
Next d 
InputOata 
KomcActivAta 
sameView « True 
End Sab 

Sub InputDaca ( } 
forn loidO&i^ 

T>im OB Aa databavo I 
Din Re f Snap As anapshot j 
Din i As Integer | 

set DB s OpenData±Mi«e(TVt)B) , ,cr^. -7*-K 

Set FefSnap * DB .Creat.Snapshot Cnaferenca ) 
RetSnap.FlndFirat "WaM - 'Date'* 
refDate = Da t eValxie (Het Snap C Data') ) 
Refsnap.FlndFirst 'Waine - 'NStations" 

MaxStAClon • VaKBelSnapCDaca')* ! 
sec allDaca(O) - DBXreatcSnapsIwtC Programs*) | 

TSBegin - DateDttt ( "n" . r«fDate, ccartTime) \ 30 
TSEnd * tSBcgin + slotsPerDay - 1 

:ilDttI(0).rll«r = Cverl.p(TSB.gin * (i - IK "End *i48 • (i - Ul 

Set allDetoCi) = allDacatO) XreaceSnapshott) 
SatVuDotalO) - Ncthinp 'won't be needing ev.ryrhing since time is Cixed 
End Sub I 
Sub MakeDi»play H w.- k 

Dim d As Inteyer Bft 
Dim c Aa Integer f}*y>9 
Dim F As snapshot HErt 

Dim hMProge Ae Integer #W(7?ld:v^ ^fcif>- H U * 3tiM 

If Not «am»Vi«w Then 

End If 
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hasPTogi « 0 i 

c = 0 shpPrc?ssiOinit*'>> h . ^ ^ ..^ > ^ ^ u * 

On Error GoTo ErrorHandl«r t UFl 0 ^HT 4ehp?rogsft'^t < i: S 
For d s 1 TO NDays 

currDay = d 

Set F » filtorDaca(d) 

I£ ^0t F,ECF Than 
F .MoveFirat 

Do While Not F-EOF i 
Load shpProo(c ♦ ^ ^, 

c « c + X ft)^r6*^c!iu;i*t:i^^i9iio ; 

ehDProo(c).BockColor • Colort F(colorFi«ld) Mod 9) J 
Position shpproatc). FCStarfi, Fcnmsh-). f(-sc«tion-) 
shpProg(c) .SOrder 
BtoProg(c).Vl6lt)ic * True 
F.MOveNejcc 

Loop 

If^hl^pto^ 3 0 Then bn9Pro«» • d Ten^itiher th« lirst dayVith procprainft 

in it 

End I£ 

Kext d ! 
MovoOn t . 1 - 

On Error CoTo 0 'ijuit traj?ping errors internally | 

Far d = I To ?l3ayQ - 1 

dayLlnstdl .ZOrder 

dayLlno(d).Vl»lbU * Tru« 
Kext d 



NProffs « c 
currDay « hasProgs 
8hpProg(0) .lOrder 
selector. torder 
IC currDay > 0 Then 

TSBegin « DateDif f I 'n- , refDate, scartTimo) 
TSEnd ' TSBagin ♦ slotsPerDay - 1 
TScurrent • TSBegin 
Set r - filterDatat currDay) 
Do While TScurrent <• TSEnd 

F.FindFirat Overlap (TScurrent , TScurrent) 

If Not F.KoMatch Then 
DicplayProg 
Exit Do 

End 11 

TSc-jrrent « TScurrent ♦ 1 

Loop 

Else 

TSBe^in a DatcDi If ( 'n* . refDote. startTiwe) \ 30 
TSEnd = TSflegin ♦ slotePerDay - I 



\ 30 ♦ 48 • icjrcDay - 1) 
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TScurrent « TSBegin ' 
currDay « 1 

^^^^ TCRonin ♦ 1 * (currD*y - 1^ • slotcPerDay » .FillScyle - 

shpSlotCTSc-orrent - TSBeoin ♦ l * xQut^u , 

O'solid ^cn«,,-in * T i (currDay - U ' slotsPerDay) .RackStyle - 

lblTime(TScurrer.t - TSBcgin * \ < (curruay 

1 • opdoue 

Exit Sub i 
ErrorHancSler: } 
" "^rJ. "c ^'roon. CO -Uocate program sh.pe.. lUiL dr.-ln, | 
R«suine Koveon 

Else 

OUn msg ^ 

naig - Error t ChrUJ) t -R"""* or ^"^'^l 

Zl - InpucBoxt.n,g, -Error Correction'. -Re.u^M 

l£ Bwy " " Tri«n Stop 
Resume MoveOn 
Bnd If 

End Sub j 
Sub Popiticti (ehap« ^fi Conrrol. start, finish, .tatiani | 

OiiD xfilAtiveL, r.lativeW. dayStart 

Dim ©dg* ^ ^, ^**j.t 

u ^ iisi^ra t NSi ot;c wLcasft »^ ^ 4^ « far 5 

dayStart - startTima ♦ currOay - I 

xelativ-L - (atart - dayStartl 48 , , * 

relativeW = (finiah - dayStart) * 43 ^ relataveL 

It relativeL < 0 Then . . , 

ralativew = reiatlvew ♦ relatlveL 

relativeL • 0 ! 
^'reUciveK . relative!. > .lot,Pernay Then relativew - .lotaPerday . relative: 

edge = (currOay - U * »lot*PerDay 
Bhape.Lefc ^ relativeL * edge t sideGap 
ahape. Width - r^lativeW - 2 • aideGap 

:h:^"?op . iipSlot.Ot.Top . topCXP . <.t.tio„ - 1. ♦ ro^its.. , 

End Sab i 
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